home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1996-04-01 | 11.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 50 58 00 36 2e 30 00 | 4b 49 4e 46 01 00 12 00 |SPX.6.0.|KINF....|
|00000010| 00 00 11 00 45 78 61 6d | 70 6c 65 20 66 6f 72 20 |....Exam|ple for |
|00000020| 53 50 4c 34 44 41 54 45 | 02 00 19 00 00 00 14 00 |SPL4DATE|........|
|00000030| 30 32 2e 30 34 2e 31 39 | 39 36 20 31 34 3a 31 38 |02.04.19|96 14:18|
|00000040| 3a 35 37 51 37 61 31 50 | 56 45 52 01 00 2c 00 00 |:57Q7a1P|VER..,..|
|00000050| 00 2b 00 45 61 73 79 43 | 4f 44 45 28 53 50 58 29 |.+.EasyC|ODE(SPX)|
|00000060| 20 56 36 2e 30 2c 20 32 | 39 20 4d 61 72 20 31 39 | V6.0, 2|9 Mar 19|
|00000070| 39 36 2c 20 30 38 3a 35 | 36 3a 35 34 20 45 4e 44 |96, 08:5|6:54 END|
|00000080| 49 01 00 00 00 00 00 46 | 4f 50 54 01 00 47 01 00 |I......F|OPT..G..|
|00000090| 00 49 46 44 41 01 00 01 | 00 00 00 00 4c 45 56 4e |.IFDA...|....LEVN|
|000000a0| 01 00 01 00 00 00 01 4c | 49 4e 4e 01 00 01 00 00 |.......L|INN.....|
|000000b0| 00 01 53 46 4f 4e 03 00 | 89 00 00 00 f6 ff 00 00 |..SFON..|........|
|000000c0| 00 00 00 00 90 01 00 00 | 00 00 01 02 01 22 48 65 |........|....."He|
|000000d0| 6c 76 00 3b 8a 04 7f 04 | 9a 9b 9f 3b 00 00 60 00 |lv.;....|...;..`.|
|000000e0| 60 00 d7 05 f9 49 bc 9a | ee 44 e7 05 60 00 00 00 |`....I..|.D..`...|
|000000f0| 48 65 6c 76 00 00 00 00 | 00 00 00 00 00 00 00 00 |Helv....|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 50 00 01 24 f6 ff 00 00 | 90 01 00 0d 00 05 00 0b |P..$....|........|
|00000140| 00 60 00 60 00 50 46 4f | 4e 03 00 89 00 00 00 df |.`.`.PFO|N.......|
|00000150| ff 00 00 00 00 00 00 90 | 01 00 00 00 00 03 02 01 |........|........|
|00000160| 22 41 72 69 61 6c 00 80 | 01 00 00 00 00 96 00 e4 |"Arial..|........|
|00000170| 03 24 99 b9 65 0f 00 01 | 00 14 00 c4 56 97 00 3e |.$..e...|....V..>|
|00000180| 99 00 00 41 72 69 61 6c | 00 00 00 00 00 00 00 00 |...Arial|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 50 00 06 44 df | ff 00 00 90 01 00 26 00 |...P..D.|......&.|
|000001d0| 0f 00 23 00 2c 01 2c 01 | 4f 4c 45 4c 02 00 04 00 |..#.,.,.|OLEL....|
|000001e0| 00 00 26 00 00 00 54 52 | 45 45 0e 00 15 2d 00 00 |..&...TR|EE...-..|
|000001f0| ff 0e 00 01 00 00 04 00 | 00 00 ff 0f 00 04 00 0e |........|........|
|00000200| 00 43 4f 4e 57 41 59 20 | 2d 20 47 61 6d 65 f0 f5 |.CONWAY |- Game..|
|00000210| 2c 00 00 00 00 00 00 00 | 00 00 00 ff 30 00 06 00 |,.......|....0...|
|00000220| ff 0f 00 06 00 26 00 43 | 4f 4e 57 41 59 5f 47 41 |.....&.C|ONWAY_GA|
|00000230| 4d 45 3a 20 20 20 20 50 | 52 4f 43 20 20 20 4f 50 |ME: P|ROC OP|
|00000240| 54 49 4f 4e 53 20 28 4d | 41 49 4e 29 f0 ff 0e 00 |TIONS (M|AIN)....|
|00000250| 07 00 00 01 00 00 00 ff | 0f 00 07 00 0d 00 44 65 |........|......De|
|00000260| 63 6c 61 72 61 74 69 6f | 6e 73 f0 2c 02 00 00 00 |claratio|ns.,....|
|00000270| 00 00 00 00 00 00 00 ff | 0f 00 08 00 19 02 44 43 |........|......DC|
|00000280| 4c 20 20 49 54 53 5f 43 | 4f 4e 56 4e 43 48 20 20 |L ITS_C|ONVNCH |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 54 | | ENT|
|000002a0| 52 59 20 28 46 49 58 45 | 44 28 33 31 29 20 42 49 |RY (FIXE|D(31) BI|
|000002b0| 4e 41 52 59 2c 20 43 48 | 41 52 28 31 31 29 29 3b |NARY, CH|AR(11));|
|000002c0| 0d 0a 0d 0a 44 43 4c 20 | 20 50 52 49 4e 54 43 20 |....DCL | PRINTC |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002e0| 20 20 20 45 4e 54 52 59 | 20 28 43 48 41 52 20 28 | ENTRY| (CHAR (|
|000002f0| 2a 29 2c 20 49 4e 54 45 | 47 45 52 29 3b 0d 0a 44 |*), INTE|GER);..D|
|00000300| 43 4c 20 20 52 45 41 44 | 43 20 20 20 20 20 20 20 |CL READ|C |
|00000310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e | | EN|
|00000320| 54 52 59 20 28 43 48 41 | 52 20 28 2a 29 2c 20 49 |TRY (CHA|R (*), I|
|00000330| 4e 54 45 47 45 52 2c 20 | 42 49 54 20 28 31 29 29 |NTEGER, |BIT (1))|
|00000340| 3b 0d 0a 0d 0a 0d 0a 44 | 43 4c 20 20 28 49 2c 20 |;......D|CL (I, |
|00000350| 20 4a 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | J) | |
|00000360| 20 20 20 20 20 20 49 4e | 54 45 47 45 52 3b 0d 0a | IN|TEGER;..|
|00000370| 44 43 4c 20 20 53 54 45 | 50 4e 55 4d 42 45 52 20 |DCL STE|PNUMBER |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 | | I|
|00000390| 4e 54 45 47 45 52 28 33 | 31 29 3b 0d 0a 44 43 4c |NTEGER(3|1);..DCL|
|000003a0| 20 20 53 54 45 50 4e 55 | 4d 42 45 52 5f 56 41 4c | STEPNU|MBER_VAL|
|000003b0| 49 44 20 20 20 20 20 20 | 20 20 20 20 42 49 54 20 |ID | BIT |
|000003c0| 20 28 31 29 20 20 49 4e | 49 54 28 27 30 27 42 29 | (1) IN|IT('0'B)|
|000003d0| 3b 0d 0a 44 43 4c 20 20 | 4e 55 4d 42 45 52 5f 4f |;..DCL |NUMBER_O|
|000003e0| 55 54 50 55 54 53 20 20 | 20 20 20 20 20 20 20 20 |UTPUTS | |
|000003f0| 20 20 49 4e 54 45 47 45 | 52 28 33 31 29 3b 0d 0a | INTEGE|R(31);..|
|00000400| 44 43 4c 20 20 4e 55 4d | 42 45 52 5f 4f 55 54 50 |DCL NUM|BER_OUTP|
|00000410| 55 54 53 5f 56 41 4c 49 | 44 20 20 20 20 20 20 42 |UTS_VALI|D B|
|00000420| 49 54 20 20 28 31 29 20 | 20 49 4e 49 54 28 27 30 |IT (1) | INIT('0|
|00000430| 27 42 29 3b 0d 0a 44 43 | 4c 20 20 4e 45 57 5f 46 |'B);..DC|L NEW_F|
|00000440| 49 47 55 52 45 5f 44 45 | 53 49 52 45 44 20 20 20 |IGURE_DE|SIRED |
|00000450| 20 20 20 20 20 42 49 54 | 20 20 28 31 29 20 20 49 | BIT| (1) I|
|00000460| 4e 49 54 28 27 31 27 42 | 29 3b 0d 0a 0d 0a 44 43 |NIT('1'B|);....DC|
|00000470| 4c 20 20 28 4f 55 54 50 | 55 54 2c 20 47 41 4d 45 |L (OUTP|UT, GAME|
|00000480| 53 54 45 50 29 20 20 45 | 4e 54 52 59 20 49 4e 54 |STEP) E|NTRY INT|
|00000490| 45 52 4e 41 4c 3b f0 ff | 0e 00 16 00 00 02 00 00 |ERNAL;..|........|
|000004a0| 00 ff 0f 00 16 00 26 00 | 53 75 62 70 72 6f 63 65 |......&.|Subproce|
|000004b0| 64 75 72 65 73 20 61 6e | 64 20 66 75 6e 63 74 69 |dures an|d functi|
|000004c0| 6f 6e 20 70 72 6f 63 65 | 64 75 72 65 73 f0 b6 26 |on proce|dures..&|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 ff 0e 00 17 00 00 |........|........|
|000004e0| 05 00 00 00 ff 0f 00 17 | 00 11 00 55 53 45 52 5f |........|...USER_|
|000004f0| 57 41 4e 54 53 5f 41 47 | 41 49 4e f0 da 04 00 00 |WANTS_AG|AIN.....|
|00000500| 00 00 00 00 00 00 00 00 | ff 4d 00 18 00 ff 0f 00 |........|.M......|
|00000510| 18 00 2b 00 55 53 45 52 | 5f 57 41 4e 54 53 5f 41 |..+.USER|_WANTS_A|
|00000520| 47 41 49 4e 3a 20 50 52 | 4f 43 20 20 20 20 52 45 |GAIN: PR|OC RE|
|00000530| 54 55 52 4e 53 20 28 42 | 49 54 28 31 29 29 f0 ff |TURNS (B|IT(1))..|
|00000540| 0f 00 19 00 56 00 44 43 | 4c 20 20 55 53 45 52 5f |....V.DC|L USER_|
|00000550| 52 45 53 50 4f 4e 53 45 | 20 20 20 20 20 20 20 20 |RESPONSE| |
|00000560| 20 20 20 20 20 20 20 43 | 48 41 52 3b 0d 0a 44 43 | C|HAR;..DC|
|00000570| 4c 20 20 52 45 41 44 5f | 4f 4b 20 20 20 20 20 20 |L READ_|OK |
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000590| 20 42 49 54 20 28 31 29 | 3b 0d 0a ff 05 00 1b 00 | BIT (1)|;.......|
|000005a0| 00 00 ff 14 00 1c 00 ff | 0f 00 1c 00 26 00 20 50 |........|....&. P|
|000005b0| 52 49 4e 54 43 20 28 27 | 45 4e 54 45 52 3a 20 53 |RINTC ('|ENTER: S|
|000005c0| 2c 43 2c 47 2c 4f 2c 41 | 20 4f 52 20 3f 27 2c 20 |,C,G,O,A| OR ?', |
|000005d0| 33 30 29 f0 ff 0f 00 1d | 00 10 00 52 45 41 44 5f |30).....|...READ_|
|000005e0| 4f 4b 20 3d 20 27 31 27 | 42 3b ff 14 00 1e 00 ff |OK = '1'|B;......|
|000005f0| 0f 00 1e 00 23 00 20 52 | 45 41 44 43 20 28 55 53 |....#. R|EADC (US|
|00000600| 45 52 5f 52 45 53 50 4f | 4e 53 45 2c 20 31 2c 20 |ER_RESPO|NSE, 1, |
|00000610| 52 45 41 44 5f 4f 4b 29 | f0 ff 03 00 1f 00 00 00 |READ_OK)|........|
|00000620| ff 0b 00 1f 00 ff 0f 00 | 1f 00 08 00 52 45 41 44 |........|....READ|
|00000630| 5f 4f 4b f0 f0 ff 0f 00 | 21 00 11 00 47 4f 54 4f |_OK.....|!...GOTO|
|00000640| 20 52 45 41 44 5f 45 52 | 52 4f 52 3b f0 ff 01 00 | READ_ER|ROR;....|
|00000650| 00 00 03 00 03 00 f0 ff | 10 00 23 00 00 00 ff 0f |........|..#.....|
|00000660| 00 23 00 0e 00 55 53 45 | 52 5f 52 45 53 50 4f 4e |.#...USE|R_RESPON|
|00000670| 53 45 f0 ff 11 00 23 00 | 00 00 ff 0f 00 24 00 04 |SE....#.|.....$..|
|00000680| 00 27 53 27 f0 ff 0f 00 | 25 00 0f 00 52 45 54 55 |.'S'....|%...RETU|
|00000690| 52 4e 20 28 27 30 27 42 | 29 3b f0 ff 11 00 26 00 |RN ('0'B|);....&.|
|000006a0| 00 00 ff 0f 00 27 00 04 | 00 27 43 27 f0 ff 0f 00 |.....'..|.'C'....|
|000006b0| 28 00 0f 00 52 45 54 55 | 52 4e 20 28 27 31 27 42 |(...RETU|RN ('1'B|
|000006c0| 29 3b f0 ff 11 00 29 00 | 00 00 ff 0f 00 2a 00 04 |);....).|.....*..|
|000006d0| 00 27 47 27 f0 ff 0f 00 | 2b 00 29 00 53 54 45 50 |.'G'....|+.).STEP|
|000006e0| 4e 55 4d 42 45 52 5f 56 | 41 4c 49 44 20 3d 20 27 |NUMBER_V|ALID = '|
|000006f0| 30 27 42 3b 0d 0a 52 45 | 54 55 52 4e 20 28 27 31 |0'B;..RE|TURN ('1|
|00000700| 27 42 29 3b f0 ff 11 00 | 2d 00 00 00 ff 0f 00 2e |'B);....|-.......|
|00000710| 00 04 00 27 4f 27 f0 ff | 0f 00 2f 00 47 00 53 54 |...'O'..|../.G.ST|
|00000720| 45 50 4e 55 4d 42 45 52 | 5f 56 41 4c 49 44 20 3d |EPNUMBER|_VALID =|
|00000730| 20 27 30 27 42 3b 0d 0a | 4e 55 4d 42 45 52 5f 4f | '0'B;..|NUMBER_O|
|00000740| 55 54 50 55 54 53 5f 56 | 41 4c 49 44 20 3d 20 27 |UTPUTS_V|ALID = '|
|00000750| 30 27 42 3b 0d 0a 52 45 | 54 55 52 4e 20 28 27 31 |0'B;..RE|TURN ('1|
|00000760| 27 42 29 3b f0 ff 11 00 | 32 00 00 00 ff 0f 00 33 |'B);....|2......3|
|00000770| 00 04 00 27 41 27 f0 ff | 0f 00 34 00 69 00 4e 45 |...'A'..|..4.i.NE|
|00000780| 57 5f 46 49 47 55 52 45 | 5f 44 45 53 49 52 45 44 |W_FIGURE|_DESIRED|
|00000790| 20 20 20 3d 20 27 31 27 | 42 3b 0d 0a 53 54 45 50 | = '1'|B;..STEP|
|000007a0| 4e 55 4d 42 45 52 5f 56 | 41 4c 49 44 20 20 20 20 |NUMBER_V|ALID |
|000007b0| 20 3d 20 27 30 27 42 3b | 0d 0a 4e 55 4d 42 45 52 | = '0'B;|..NUMBER|
|000007c0| 5f 4f 55 54 50 55 54 53 | 5f 56 41 4c 49 44 20 3d |_OUTPUTS|_VALID =|
|000007d0| 20 27 30 27 42 3b 0d 0a | 52 45 54 55 52 4e 20 28 | '0'B;..|RETURN (|
|000007e0| 27 31 27 42 29 3b f0 ff | 11 00 38 00 00 00 ff 0f |'1'B);..|..8.....|
|000007f0| 00 39 00 04 00 27 3f 27 | f0 ff 14 00 3a 00 ff 0f |.9...'?'|....:...|
|00000800| 00 3a 00 19 00 20 50 52 | 49 4e 54 43 20 28 27 53 |.:... PR|INTC ('S|
|00000810| 20 3d 20 53 54 4f 50 27 | 2c 20 31 31 29 f0 ff 14 | = STOP'|, 11)...|
|00000820| 00 3b 00 ff 0f 00 3b 00 | 2d 00 20 50 52 49 4e 54 |.;....;.|-. PRINT|
|00000830| 43 20 28 27 43 20 3d 20 | 43 4f 4e 54 49 4e 55 45 |C ('C = |CONTINUE|
|00000840| 20 57 49 54 48 4f 55 54 | 20 43 48 41 4e 47 45 53 | WITHOUT| CHANGES|
|00000850| 27 2c 20 33 34 29 f0 ff | 14 00 3c 00 ff 0f 00 3c |', 34)..|..<....<|
|00000860| 00 66 00 20 50 52 49 4e | 54 43 20 28 27 47 20 3d |.f. PRIN|TC ('G =|
|00000870| 20 43 48 41 4e 47 45 20 | 4e 55 4d 42 45 52 20 4f | CHANGE |NUMBER O|
|00000880| 46 20 47 41 4d 45 53 54 | 45 50 53 20 27 0d 0a 20 |F GAMEST|EPS '.. |
|00000890| 20 43 41 54 20 27 42 45 | 54 57 45 45 4e 20 54 57 | CAT 'BE|TWEEN TW|
|000008a0| 4f 20 4f 55 54 50 55 54 | 53 27 0d 0a 20 20 43 41 |O OUTPUT|S'.. CA|
|000008b0| 54 20 27 2c 20 54 48 45 | 4e 20 43 4f 4e 54 49 4e |T ', THE|N CONTIN|
|000008c0| 55 45 27 2c 20 37 32 29 | f0 ff 14 00 3f 00 ff 0f |UE', 72)|....?...|
|000008d0| 00 3f 00 9f 00 20 50 52 | 49 4e 54 43 20 28 27 4f |.?... PR|INTC ('O|
|000008e0| 20 3d 20 43 48 41 4e 47 | 45 20 4e 55 4d 42 45 52 | = CHANG|E NUMBER|
|000008f0| 20 4f 46 20 4f 55 54 50 | 55 54 53 20 27 0d 0a 20 | OF OUTP|UTS '.. |
|00000900| 20 43 41 54 20 27 55 4e | 54 49 4c 20 4e 45 58 54 | CAT 'UN|TIL NEXT|
|00000910| 20 49 4e 50 55 54 20 27 | 0d 0a 20 20 43 41 54 20 | INPUT '|.. CAT |
|00000920| 27 41 4e 44 20 4e 55 4d | 42 45 52 20 4f 46 20 47 |'AND NUM|BER OF G|
|00000930| 41 4d 45 53 54 45 50 53 | 20 27 0d 0a 20 20 43 41 |AMESTEPS| '.. CA|
|00000940| 54 20 27 42 45 54 57 45 | 45 4e 20 4f 55 54 50 55 |T 'BETWE|EN OUTPU|
|00000950| 54 53 27 0d 0a 20 20 43 | 41 54 20 27 2c 20 54 48 |TS'.. C|AT ', TH|
|00000960| 45 4e 20 43 4f 4e 54 49 | 4e 55 45 27 2c 20 20 31 |EN CONTI|NUE', 1|
|00000970| 31 34 29 f0 ff 14 00 44 | 00 ff 0f 00 44 00 20 00 |14)....D|....D. .|
|00000980| 20 50 52 49 4e 54 43 20 | 28 27 41 20 3d 20 53 54 | PRINTC |('A = ST|
|00000990| 41 52 54 20 41 47 41 49 | 4e 27 2c 20 31 39 29 f0 |ART AGAI|N', 19).|
|000009a0| f0 f0 ff 11 00 45 00 00 | 00 ff 01 00 00 00 11 00 |.....E..|........|
|000009b0| 09 00 f0 ff 01 00 00 00 | 11 00 07 00 f0 f0 f0 ff |........|........|
|000009c0| 0f 00 4a 00 0f 00 52 45 | 54 55 52 4e 20 28 27 30 |..J...RE|TURN ('0|
|000009d0| 27 42 29 3b f0 f0 ff 0e | 00 4d 00 00 06 00 00 00 |'B);....|.M......|
|000009e0| ff 0f 00 4d 00 09 00 4e | 55 4d 56 41 4c 55 45 f0 |...M...N|UMVALUE.|
|000009f0| 3d 08 00 00 00 00 00 00 | 00 00 00 00 ff 4d 00 4e |=.......|.....M.N|
|00000a00| 00 ff 0f 00 4e 00 36 00 | 4e 55 4d 56 41 4c 55 45 |....N.6.|NUMVALUE|
|00000a10| 3a 20 50 52 4f 43 20 28 | 49 4e 50 55 54 5f 53 54 |: PROC (|INPUT_ST|
|00000a20| 52 49 4e 47 29 20 20 20 | 52 45 54 55 52 4e 53 20 |RING) |RETURNS |
|00000a30| 28 49 4e 54 45 47 45 52 | 28 33 31 29 29 f0 ff 0f |(INTEGER|(31))...|
|00000a40| 00 4f 00 2e 02 44 43 4c | 20 20 49 4e 50 55 54 5f |.O...DCL| INPUT_|
|00000a50| 53 54 52 49 4e 47 20 20 | 20 20 20 20 20 20 20 20 |STRING | |
|00000a60| 20 20 20 20 20 43 48 41 | 52 28 31 31 29 3b 0d 0a | CHA|R(11);..|
|00000a70| 0d 0a 0d 0a 44 43 4c 20 | 20 28 53 54 41 52 54 5f |....DCL | (START_|
|00000a80| 41 44 44 52 2c 0d 0a 20 | 20 20 20 20 20 45 4e 44 |ADDR,.. | END|
|00000a90| 5f 41 44 44 52 29 20 20 | 20 20 20 20 20 20 20 20 |_ADDR) | |
|00000aa0| 20 20 20 20 20 20 20 50 | 4f 49 4e 54 45 52 3b 0d | P|OINTER;.|
|00000ab0| 0a 44 43 4c 20 20 53 54 | 41 52 54 5f 43 48 41 52 |.DCL ST|ART_CHAR|
|00000ac0| 41 43 54 45 52 20 20 20 | 20 20 20 20 20 20 20 20 |ACTER | |
|00000ad0| 20 43 48 41 52 20 20 20 | 20 42 41 53 45 44 20 28 | CHAR | BASED (|
|00000ae0| 53 54 41 52 54 5f 41 44 | 44 52 29 3b 0d 0a 44 43 |START_AD|DR);..DC|
|00000af0| 4c 20 20 45 4e 44 5f 43 | 48 41 52 41 43 54 45 52 |L END_C|HARACTER|
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 48 | | CH|
|00000b10| 41 52 20 20 20 20 42 41 | 53 45 44 20 28 45 4e 44 |AR BA|SED (END|
|00000b20| 5f 41 44 44 52 29 3b 0d | 0a 44 43 4c 20 20 52 45 |_ADDR);.|.DCL RE|
|00000b30| 53 55 4c 54 20 20 20 20 | 20 20 20 20 20 20 20 20 |SULT | |
|00000b40| 20 20 20 20 20 20 20 20 | 20 49 4e 54 45 47 45 52 | | INTEGER|
|00000b50| 28 33 31 29 3b 0d 0a 44 | 43 4c 20 20 31 20 20 43 |(31);..D|CL 1 C|
|00000b60| 48 41 52 5f 44 45 53 43 | 52 49 50 54 49 4f 4e 20 |HAR_DESC|RIPTION |
|00000b70| 20 20 20 20 20 20 20 4d | 4f 44 45 4c 2c 0d 0a 20 | M|ODEL,.. |
|00000b80| 20 20 20 20 20 20 20 32 | 20 52 45 50 52 45 53 45 | 2| REPRESE|
|00000b90| 4e 54 53 5f 46 49 47 55 | 52 45 20 20 20 20 20 42 |NTS_FIGU|RE B|
|00000ba0| 49 54 28 31 29 2c 0d 0a | 20 20 20 20 20 20 20 20 |IT(1),..| |
|00000bb0| 32 20 56 41 4c 55 45 5f | 4f 46 5f 46 49 47 55 52 |2 VALUE_|OF_FIGUR|
|00000bc0| 45 20 20 20 20 20 20 20 | 49 4e 54 45 47 45 52 3b |E |INTEGER;|
|00000bd0| 0d 0a 44 43 4c 20 20 43 | 48 5f 44 45 53 43 52 20 |..DCL C|H_DESCR |
|00000be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000bf0| 20 20 4d 4f 44 45 20 28 | 43 48 41 52 5f 44 45 53 | MODE (|CHAR_DES|
|00000c00| 43 52 49 50 54 49 4f 4e | 29 3b 0d 0a 0d 0a 44 43 |CRIPTION|);....DC|
|00000c10| 4c 20 20 44 45 53 43 52 | 49 42 45 5f 43 48 41 52 |L DESCR|IBE_CHAR|
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e | | EN|
|00000c30| 54 52 59 20 28 43 48 41 | 52 29 0d 0a 20 20 20 20 |TRY (CHA|R).. |
|00000c40| 20 52 45 54 55 52 4e 53 | 20 28 4d 4f 44 45 20 28 | RETURNS| (MODE (|
|00000c50| 43 48 41 52 5f 44 45 53 | 43 52 49 50 54 49 4f 4e |CHAR_DES|CRIPTION|
|00000c60| 29 29 0d 0a 20 20 20 20 | 20 49 4e 54 45 52 4e 41 |)).. | INTERNA|
|00000c70| 4c 3b ff 0e 00 5f 00 00 | 09 00 00 00 ff 0f 00 5f |L;..._..|......._|
|00000c80| 00 0e 00 44 45 53 43 52 | 49 42 45 5f 43 48 41 52 |...DESCR|IBE_CHAR|
|00000c90| f0 40 02 00 00 00 00 00 | 00 00 00 00 00 ff 4d 00 |.@......|......M.|
|00000ca0| 60 00 ff 0f 00 60 00 55 | 00 44 45 53 43 52 49 42 |`....`.U|.DESCRIB|
|00000cb0| 45 5f 43 48 41 52 3a 20 | 50 52 4f 43 20 20 20 20 |E_CHAR: |PROC |
|00000cc0| 28 43 48 41 52 5f 49 4e | 29 0d 0a 20 20 20 20 20 |(CHAR_IN|).. |
|00000cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 52 45 54 55 | | RETU|
|00000ce0| 52 4e 53 20 28 4d 4f 44 | 45 20 28 43 48 41 52 5f |RNS (MOD|E (CHAR_|
|00000cf0| 44 45 53 43 52 49 50 54 | 49 4f 4e 29 29 f0 ff 0f |DESCRIPT|ION))...|
|00000d00| 00 62 00 c4 00 44 43 4c | 20 20 43 48 41 52 5f 49 |.b...DCL| CHAR_I|
|00000d10| 4e 20 20 20 20 20 20 20 | 20 20 20 43 48 41 52 3b |N | CHAR;|
|00000d20| 0d 0a 44 43 4c 20 20 31 | 20 20 43 48 41 52 5f 49 |..DCL 1| CHAR_I|
|00000d30| 4e 5f 53 54 52 55 43 20 | 44 45 46 20 43 48 41 52 |N_STRUC |DEF CHAR|
|00000d40| 5f 49 4e 2c 0d 0a 20 20 | 20 20 20 20 20 32 20 48 |_IN,.. | 2 H|
|00000d50| 41 4c 46 42 59 54 45 5f | 31 20 20 20 42 49 54 20 |ALFBYTE_|1 BIT |
|00000d60| 28 34 29 20 20 20 20 20 | 55 4e 41 4c 2c 0d 0a 20 |(4) |UNAL,.. |
|00000d70| 20 20 20 20 20 20 32 20 | 48 41 4c 46 42 59 54 45 | 2 |HALFBYTE|
|00000d80| 5f 32 20 20 20 49 4e 54 | 45 47 45 52 20 28 34 29 |_2 INT|EGER (4)|
|00000d90| 20 55 4e 41 4c 3b 0d 0a | 44 43 4c 20 20 44 45 53 | UNAL;..|DCL DES|
|00000da0| 43 52 49 50 54 49 4f 4e | 20 20 20 20 20 20 4d 4f |CRIPTION| MO|
|00000db0| 44 45 20 28 43 48 41 52 | 5f 44 45 53 43 52 49 50 |DE (CHAR|_DESCRIP|
|00000dc0| 54 49 4f 4e 29 3b 0d 0a | ff 03 00 67 00 00 00 ff |TION);..|...g....|
|00000dd0| 09 00 67 00 ff 0f 00 67 | 00 20 00 43 48 41 52 5f |..g....g|. .CHAR_|
|00000de0| 49 4e 5f 53 54 52 55 43 | 2e 48 41 4c 46 42 59 54 |IN_STRUC|.HALFBYT|
|00000df0| 45 5f 31 20 3d 20 27 46 | 27 58 ff 0f 00 68 00 1e |E_1 = 'F|'X...h..|
|00000e00| 00 43 48 41 52 5f 49 4e | 5f 53 54 52 55 43 2e 48 |.CHAR_IN|_STRUC.H|
|00000e10| 41 4c 46 42 59 54 45 5f | 32 20 3c 20 31 30 f0 f0 |ALFBYTE_|2 < 10..|
|00000e20| ff 0f 00 6a 00 5f 00 44 | 45 53 43 52 49 50 54 49 |...j._.D|ESCRIPTI|
|00000e30| 4f 4e 2e 52 45 50 52 45 | 53 45 4e 54 53 5f 46 49 |ON.REPRE|SENTS_FI|
|00000e40| 47 55 52 45 20 3d 20 27 | 31 27 42 3b 0d 0a 44 45 |GURE = '|1'B;..DE|
|00000e50| 53 43 52 49 50 54 49 4f | 4e 2e 56 41 4c 55 45 5f |SCRIPTIO|N.VALUE_|
|00000e60| 4f 46 5f 46 49 47 55 52 | 45 20 3d 20 43 48 41 52 |OF_FIGUR|E = CHAR|
|00000e70| 5f 49 4e 5f 53 54 52 55 | 43 2e 48 41 4c 46 42 59 |_IN_STRU|C.HALFBY|
|00000e80| 54 45 5f 32 3b f0 ff 0f | 00 6e 00 26 00 44 45 53 |TE_2;...|.n.&.DES|
|00000e90| 43 52 49 50 54 49 4f 4e | 2e 52 45 50 52 45 53 45 |CRIPTION|.REPRESE|
|00000ea0| 4e 54 53 5f 46 49 47 55 | 52 45 20 3d 20 27 31 27 |NTS_FIGU|RE = '1'|
|00000eb0| 42 3b f0 ff 0f 00 70 00 | 16 00 52 45 54 55 52 4e |B;....p.|..RETURN|
|00000ec0| 20 28 44 45 53 43 52 49 | 50 54 49 4f 4e 29 3b f0 | (DESCRI|PTION);.|
|00000ed0| f0 ff 0f 00 73 00 0c 00 | 52 45 53 55 4c 54 20 3d |....s...|RESULT =|
|00000ee0| 20 30 3b ff 33 00 74 00 | ff 0f 00 74 00 0e 00 53 | 0;.3.t.|...t...S|
|00000ef0| 45 41 52 43 48 5f 42 45 | 47 49 4e 3a f0 ff 12 00 |EARCH_BE|GIN:....|
|00000f00| 75 00 ff 0f 00 75 00 3d | 00 53 54 41 52 54 5f 41 |u....u.=|.START_A|
|00000f10| 44 44 52 20 3d 20 41 44 | 44 52 28 49 4e 50 55 54 |DDR = AD|DR(INPUT|
|00000f20| 5f 53 54 52 49 4e 47 29 | 0d 0a 20 54 4f 20 41 44 |_STRING)|.. TO AD|
|00000f30| 44 52 28 49 4e 50 55 54 | 5f 53 54 52 49 4e 47 29 |DR(INPUT|_STRING)|
|00000f40| 20 2b 20 31 30 f0 ff 03 | 00 77 00 00 00 ff 0f 00 | + 10...|.w......|
|00000f50| 77 00 17 00 53 54 41 52 | 54 5f 43 48 41 52 41 43 |w...STAR|T_CHARAC|
|00000f60| 54 45 52 20 4e 45 20 27 | 20 27 f0 ff 0f 00 79 00 |TER NE '| '....y.|
|00000f70| 2c 00 43 48 5f 44 45 53 | 43 52 20 3d 20 44 45 53 |,.CH_DES|CR = DES|
|00000f80| 43 52 49 42 45 5f 43 48 | 41 52 20 28 53 54 41 52 |CRIBE_CH|AR (STAR|
|00000f90| 54 5f 43 48 41 52 41 43 | 54 45 52 29 3b ff 03 00 |T_CHARAC|TER);...|
|00000fa0| 7a 00 00 00 ff 0f 00 7a | 00 1b 00 43 48 5f 44 45 |z......z|...CH_DE|
|00000fb0| 53 43 52 2e 52 45 50 52 | 45 53 45 4e 54 53 5f 46 |SCR.REPR|ESENTS_F|
|00000fc0| 49 47 55 52 45 f0 ff 0f | 00 7c 00 14 00 42 52 45 |IGURE...|.|...BRE|
|00000fd0| 41 4b 20 53 45 41 52 43 | 48 5f 42 45 47 49 4e 3b |AK SEARC|H_BEGIN;|
|00000fe0| f0 ff 0f 00 7f 00 0c 00 | 52 45 54 55 52 4e 20 28 |........|RETURN (|
|00000ff0| 30 29 3b f0 f0 ff 01 00 | 00 00 03 00 03 00 f0 f0 |0);.....|........|
|00001000| f0 ff 0f 00 83 00 02 00 | 20 f0 ff 33 00 84 00 ff |........| ..3....|
|00001010| 0f 00 84 00 0b 00 53 45 | 41 52 43 48 5f 45 4e 44 |......SE|ARCH_END|
|00001020| f0 ff 12 00 85 00 ff 0f | 00 85 00 39 00 45 4e 44 |........|...9.END|
|00001030| 5f 41 44 44 52 20 3d 20 | 41 44 44 52 28 49 4e 50 |_ADDR = |ADDR(INP|
|00001040| 55 54 5f 53 54 52 49 4e | 47 29 20 2b 20 31 30 20 |UT_STRIN|G) + 10 |
|00001050| 42 59 20 28 2d 31 29 20 | 54 4f 20 53 54 41 52 54 |BY (-1) |TO START|
|00001060| 5f 41 44 44 52 f0 ff 03 | 00 86 00 00 00 ff 0f 00 |_ADDR...|........|
|00001070| 86 00 15 00 45 4e 44 5f | 43 48 41 52 41 43 54 45 |....END_|CHARACTE|
|00001080| 52 20 4e 45 20 27 20 27 | f0 ff 0f 00 88 00 2a 00 |R NE ' '|......*.|
|00001090| 43 48 5f 44 45 53 43 52 | 20 3d 20 44 45 53 43 52 |CH_DESCR| = DESCR|
|000010a0| 49 42 45 5f 43 48 41 52 | 20 28 45 4e 44 5f 43 48 |IBE_CHAR| (END_CH|
|000010b0| 41 52 41 43 54 45 52 29 | 3b ff 03 00 89 00 00 00 |ARACTER)|;.......|
|000010c0| ff 0f 00 89 00 1b 00 43 | 48 5f 44 45 53 43 52 2e |.......C|H_DESCR.|
|000010d0| 52 45 50 52 45 53 45 4e | 54 53 5f 46 49 47 55 52 |REPRESEN|TS_FIGUR|
|000010e0| 45 f0 ff 0f 00 8b 00 12 | 00 42 52 45 41 4b 20 53 |E.......|.BREAK S|
|000010f0| 45 41 52 43 48 5f 45 4e | 44 3b f0 ff 0f 00 8e 00 |EARCH_EN|D;......|
|00001100| 0c 00 52 45 54 55 52 4e | 20 28 30 29 3b f0 f0 ff |..RETURN| (0);...|
|00001110| 01 00 00 00 03 00 03 00 | f0 f0 f0 ff 0f 00 92 00 |........|........|
|00001120| 02 00 20 f0 ff 0d 00 93 | 00 00 00 ff 0f 00 93 00 |.. .....|........|
|00001130| 09 00 47 45 54 56 41 4c | 55 45 f0 ff 12 00 94 00 |..GETVAL|UE......|
|00001140| ff 0f 00 94 00 24 00 53 | 54 41 52 54 5f 41 44 44 |.....$.S|TART_ADD|
|00001150| 52 20 3d 20 53 54 41 52 | 54 5f 41 44 44 52 20 54 |R = STAR|T_ADDR T|
|00001160| 4f 20 45 4e 44 5f 41 44 | 44 52 f0 ff 0f 00 95 00 |O END_AD|DR......|
|00001170| 2c 00 43 48 5f 44 45 53 | 43 52 20 3d 20 44 45 53 |,.CH_DES|CR = DES|
|00001180| 43 52 49 42 45 5f 43 48 | 41 52 20 28 53 54 41 52 |CRIBE_CH|AR (STAR|
|00001190| 54 5f 43 48 41 52 41 43 | 54 45 52 29 3b ff 03 00 |T_CHARAC|TER);...|
|000011a0| 96 00 00 00 ff 0f 00 96 | 00 1b 00 43 48 5f 44 45 |........|...CH_DE|
|000011b0| 53 43 52 2e 52 45 50 52 | 45 53 45 4e 54 53 5f 46 |SCR.REPR|ESENTS_F|
|000011c0| 49 47 55 52 45 f0 ff 0f | 00 98 00 31 00 52 45 53 |IGURE...|...1.RES|
|000011d0| 55 4c 54 20 3d 20 52 45 | 53 55 4c 54 20 2a 20 31 |ULT = RE|SULT * 1|
|000011e0| 30 20 2b 20 43 48 5f 44 | 45 53 43 52 2e 56 41 4c |0 + CH_D|ESCR.VAL|
|000011f0| 55 45 5f 4f 46 5f 46 49 | 47 55 52 45 3b f0 ff 0f |UE_OF_FI|GURE;...|
|00001200| 00 9b 00 0c 00 52 45 54 | 55 52 4e 20 28 30 29 3b |.....RET|URN (0);|
|00001210| f0 f0 f0 ff 0f 00 9e 00 | 12 00 52 45 54 55 52 4e |........|..RETURN|
|00001220| 20 28 52 45 53 55 4c 54 | 29 3b 20 f0 f0 ff 0e 00 | (RESULT|); .....|
|00001230| a1 00 00 07 00 00 00 ff | 0f 00 a1 00 0b 00 4e 45 |........|......NE|
|00001240| 57 5f 4e 55 4d 42 45 52 | f0 26 02 00 00 00 00 00 |W_NUMBER|.&......|
|00001250| 00 00 00 00 00 ff 30 00 | a2 00 ff 0f 00 a2 00 30 |......0.|.......0|
|00001260| 00 4e 45 57 5f 4e 55 4d | 42 45 52 3a 20 50 52 4f |.NEW_NUM|BER: PRO|
|00001270| 43 20 20 20 20 28 54 45 | 58 54 2c 20 54 45 58 54 |C (TE|XT, TEXT|
|00001280| 5f 4c 45 4e 47 54 48 2c | 20 4e 55 4d 42 45 52 29 |_LENGTH,| NUMBER)|
|00001290| f0 ff 0f 00 a3 00 9a 00 | 44 43 4c 20 20 54 45 58 |........|DCL TEX|
|000012a0| 54 5f 4c 45 4e 47 54 48 | 20 49 4e 54 45 47 45 52 |T_LENGTH| INTEGER|
|000012b0| 3b 0d 0a 44 43 4c 20 20 | 54 45 58 54 20 20 20 20 |;..DCL |TEXT |
|000012c0| 20 20 20 20 43 48 41 52 | 20 28 54 45 58 54 5f 4c | CHAR| (TEXT_L|
|000012d0| 45 4e 47 54 48 29 3b 0d | 0a 44 43 4c 20 20 4e 55 |ENGTH);.|.DCL NU|
|000012e0| 4d 42 45 52 20 20 20 20 | 20 20 49 4e 54 45 47 45 |MBER | INTEGE|
|000012f0| 52 20 28 33 31 29 3b 0d | 0a 44 43 4c 20 20 4e 55 |R (31);.|.DCL NU|
|00001300| 4d 42 45 52 5f 43 48 20 | 20 20 43 48 41 52 20 28 |MBER_CH | CHAR (|
|00001310| 31 31 29 3b 0d 0a 44 43 | 4c 20 20 52 45 41 44 5f |11);..DC|L READ_|
|00001320| 4f 4b 20 20 20 20 20 42 | 49 54 20 28 31 29 3b 0d |OK B|IT (1);.|
|00001330| 0a ff 14 00 a8 00 ff 0f | 00 a8 00 1c 00 20 50 52 |........|..... PR|
|00001340| 49 4e 54 43 20 28 54 45 | 58 54 2c 20 54 45 58 54 |INTC (TE|XT, TEXT|
|00001350| 5f 4c 45 4e 47 54 48 29 | f0 ff 0f 00 a9 00 10 00 |_LENGTH)|........|
|00001360| 52 45 41 44 5f 4f 4b 20 | 3d 20 27 31 27 42 3b ff |READ_OK |= '1'B;.|
|00001370| 13 00 aa 00 ff 14 00 ab | 00 ff 0f 00 ab 00 20 00 |........|...... .|
|00001380| 20 52 45 41 44 43 20 28 | 4e 55 4d 42 45 52 5f 43 | READC (|NUMBER_C|
|00001390| 48 2c 20 31 31 2c 20 52 | 45 41 44 5f 4f 4b 29 f0 |H, 11, R|EAD_OK).|
|000013a0| ff 03 00 ac 00 00 00 ff | 0f 00 ac 00 08 00 52 45 |........|......RE|
|000013b0| 41 44 5f 4f 4b f0 ff 0f | 00 ae 00 1f 00 4e 55 4d |AD_OK...|.....NUM|
|000013c0| 42 45 52 20 3d 20 4e 55 | 4d 56 41 4c 55 45 20 28 |BER = NU|MVALUE (|
|000013d0| 4e 55 4d 42 45 52 5f 43 | 48 29 3b ff 03 00 af 00 |NUMBER_C|H);.....|
|000013e0| 00 00 ff 0f 00 af 00 0b | 00 4e 55 4d 42 45 52 20 |........|.NUMBER |
|000013f0| 3d 20 30 f0 ff 14 00 b1 | 00 ff 0f 00 b1 00 30 00 |= 0.....|......0.|
|00001400| 20 50 52 49 4e 54 43 0d | 0a 20 20 28 27 49 4e 56 | PRINTC.|. ('INV|
|00001410| 41 4c 49 44 20 4e 55 4d | 42 45 52 2e 20 52 45 45 |ALID NUM|BER. REE|
|00001420| 4e 54 45 52 2e 27 2c 0d | 0a 20 20 20 33 36 29 f0 |NTER.',.|. 36).|
|00001430| f0 ff 01 00 00 00 03 00 | 03 00 f0 f0 ff 0f 00 b7 |........|........|
|00001440| 00 11 00 47 4f 54 4f 20 | 52 45 41 44 5f 45 52 52 |...GOTO |READ_ERR|
|00001450| 4f 52 3b f0 f0 ff 0b 00 | b9 00 ff 0f 00 b9 00 0b |OR;.....|........|
|00001460| 00 4e 55 4d 42 45 52 20 | 3d 20 30 f0 f0 f0 f0 ff |.NUMBER |= 0.....|
|00001470| 0e 00 be 00 00 08 00 00 | 00 ff 0f 00 be 00 11 00 |........|........|
|00001480| 53 45 54 5f 53 54 41 52 | 54 5f 46 49 47 55 52 45 |SET_STAR|T_FIGURE|
|00001490| f0 f2 16 00 00 00 00 00 | 00 00 00 00 00 ff 30 00 |........|......0.|
|000014a0| bf 00 ff 0f 00 bf 00 24 | 00 53 45 54 5f 53 54 41 |.......$|.SET_STA|
|000014b0| 52 54 5f 46 49 47 55 52 | 45 3a 20 50 52 4f 43 20 |RT_FIGUR|E: PROC |
|000014c0| 20 20 20 52 45 43 55 52 | 53 49 56 45 f0 ff 0f 00 | RECUR|SIVE....|
|000014d0| c0 00 96 04 44 43 4c 20 | 20 4d 41 58 5f 4e 55 4d |....DCL | MAX_NUM|
|000014e0| 4c 49 4e 45 53 20 20 20 | 20 20 49 4e 54 45 47 45 |LINES | INTEGE|
|000014f0| 52 28 33 31 29 20 43 4f | 4e 53 54 41 4e 54 20 28 |R(31) CO|NSTANT (|
|00001500| 32 30 29 3b 0d 0a 44 43 | 4c 20 20 4d 41 58 5f 4e |20);..DC|L MAX_N|
|00001510| 55 4d 43 4f 4c 55 4d 4e | 53 20 20 20 49 4e 54 45 |UMCOLUMN|S INTE|
|00001520| 47 45 52 28 33 31 29 20 | 43 4f 4e 53 54 41 4e 54 |GER(31) |CONSTANT|
|00001530| 20 28 37 36 29 3b 0d 0a | 0d 0a 44 43 4c 20 20 28 | (76);..|..DCL (|
|00001540| 4e 55 4d 43 4f 4c 55 4d | 4e 53 2c 0d 0a 20 20 20 |NUMCOLUM|NS,.. |
|00001550| 20 20 20 4e 55 4d 43 4f | 4c 53 33 2c 0d 0a 20 20 | NUMCO|LS3,.. |
|00001560| 20 20 20 20 4e 55 4d 43 | 4f 4c 53 34 2c 0d 0a 20 | NUMC|OLS4,.. |
|00001570| 20 20 20 20 20 4e 55 4d | 4c 49 4e 45 53 29 20 20 | NUM|LINES) |
|00001580| 20 20 20 20 20 49 4e 54 | 45 47 45 52 28 33 31 29 | INT|EGER(31)|
|00001590| 20 53 54 41 54 49 43 3b | 0d 0a 44 43 4c 20 20 28 | STATIC;|..DCL (|
|000015a0| 57 4f 52 4b 31 2c 0d 0a | 20 20 20 20 20 20 57 4f |WORK1,..| WO|
|000015b0| 52 4b 32 29 20 20 20 20 | 20 43 48 41 52 20 20 20 |RK2) | CHAR |
|000015c0| 28 28 4d 41 58 5f 4e 55 | 4d 4c 49 4e 45 53 20 2b |((MAX_NU|MLINES +|
|000015d0| 20 32 29 20 2a 0d 0a 20 | 20 20 20 20 20 20 20 20 | 2) *.. | |
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015f0| 28 4d 41 58 5f 4e 55 4d | 43 4f 4c 55 4d 4e 53 20 |(MAX_NUM|COLUMNS |
|00001600| 2b 20 34 29 29 20 53 54 | 41 54 49 43 3b 0d 0a 44 |+ 4)) ST|ATIC;..D|
|00001610| 43 4c 20 20 4c 49 4e 45 | 5f 4e 52 20 20 20 20 20 |CL LINE|_NR |
|00001620| 20 20 20 20 20 49 4e 54 | 45 47 45 52 20 28 33 31 | INT|EGER (31|
|00001630| 29 3b 0d 0a 44 43 4c 20 | 20 28 46 49 45 4c 44 31 |);..DCL | (FIELD1|
|00001640| 5f 4c 49 4e 45 5f 41 44 | 44 52 2c 0d 0a 20 20 20 |_LINE_AD|DR,.. |
|00001650| 20 20 20 46 49 45 4c 44 | 32 5f 4c 49 4e 45 5f 41 | FIELD|2_LINE_A|
|00001660| 44 44 52 29 20 28 30 20 | 3a 20 4d 41 58 5f 4e 55 |DDR) (0 |: MAX_NU|
|00001670| 4d 4c 49 4e 45 53 20 2b | 20 31 29 20 50 54 52 20 |MLINES +| 1) PTR |
|00001680| 53 54 41 54 49 43 3b 0d | 0a 44 43 4c 20 20 42 41 |STATIC;.|.DCL BA|
|00001690| 53 45 5f 4c 49 4e 45 5f | 41 44 44 52 20 20 20 50 |SE_LINE_|ADDR P|
|000016a0| 54 52 3b 0d 0a 44 43 4c | 20 20 4c 49 4e 45 5f 41 |TR;..DCL| LINE_A|
|000016b0| 44 44 52 20 20 20 20 20 | 20 20 20 20 20 28 30 20 |DDR | (0 |
|000016c0| 3a 20 4d 41 58 5f 4e 55 | 4d 4c 49 4e 45 53 20 2b |: MAX_NU|MLINES +|
|000016d0| 20 31 29 20 50 54 52 0d | 0a 20 20 20 20 20 20 20 | 1) PTR.|. |
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016f0| 20 42 41 53 45 44 20 28 | 42 41 53 45 5f 4c 49 4e | BASED (|BASE_LIN|
|00001700| 45 5f 41 44 44 52 29 3b | 0d 0a 44 43 4c 20 20 4e |E_ADDR);|..DCL N|
|00001710| 55 4d 5f 43 48 20 20 20 | 20 20 20 20 20 20 20 20 |UM_CH | |
|00001720| 20 20 43 48 41 52 20 28 | 31 31 29 3b 0d 0a 44 43 | CHAR (|11);..DC|
|00001730| 4c 20 20 31 20 20 4e 55 | 4d 43 48 5f 53 54 52 55 |L 1 NU|MCH_STRU|
|00001740| 43 20 20 20 20 20 44 45 | 46 49 4e 45 44 20 4e 55 |C DE|FINED NU|
|00001750| 4d 5f 43 48 2c 0d 0a 20 | 20 20 20 20 20 20 32 20 |M_CH,.. | 2 |
|00001760| 42 45 47 49 4e 20 20 20 | 20 20 20 20 20 20 20 43 |BEGIN | C|
|00001770| 48 41 52 20 28 39 29 2c | 0d 0a 20 20 20 20 20 20 |HAR (9),|.. |
|00001780| 20 32 20 45 4e 44 5f 32 | 20 20 20 20 20 20 20 20 | 2 END_2| |
|00001790| 20 20 43 48 41 52 20 28 | 32 29 3b 0d 0a 20 20 20 | CHAR (|2);.. |
|000017a0| 20 20 20 20 0d 0a 44 43 | 4c 20 20 28 48 45 4c 50 | ..DC|L (HELP|
|000017b0| 50 4f 49 4e 54 45 52 31 | 2c 0d 0a 20 20 20 20 20 |POINTER1|,.. |
|000017c0| 20 48 45 4c 50 50 4f 49 | 4e 54 45 52 32 29 20 20 | HELPPOI|NTER2) |
|000017d0| 20 20 20 50 54 52 3b 0d | 0a 44 43 4c 20 20 43 48 | PTR;.|.DCL CH|
|000017e0| 32 5f 42 41 53 45 44 20 | 20 20 20 20 20 20 20 20 |2_BASED | |
|000017f0| 20 43 48 41 52 20 28 32 | 29 20 42 41 53 45 44 20 | CHAR (2|) BASED |
|00001800| 20 28 48 45 4c 50 50 4f | 49 4e 54 45 52 31 29 3b | (HELPPO|INTER1);|
|00001810| 0d 0a 44 43 4c 20 20 43 | 48 32 20 20 20 20 20 20 |..DCL C|H2 |
|00001820| 20 20 20 20 20 20 20 20 | 20 20 43 48 41 52 20 28 | | CHAR (|
|00001830| 32 29 3b 0d 0a 44 43 4c | 20 20 52 45 41 44 5f 4f |2);..DCL| READ_O|
|00001840| 4b 20 20 20 20 20 20 20 | 20 20 20 20 20 42 49 54 |K | BIT|
|00001850| 20 28 31 29 3b 0d 0a 44 | 43 4c 20 20 4c 49 4e 45 | (1);..D|CL LINE|
|00001860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 | | C|
|00001870| 48 41 52 20 28 4e 55 4d | 43 4f 4c 53 34 29 20 42 |HAR (NUM|COLS4) B|
|00001880| 41 53 45 44 20 20 28 48 | 45 4c 50 50 4f 49 4e 54 |ASED (H|ELPPOINT|
|00001890| 45 52 31 29 3b 0d 0a 44 | 43 4c 20 20 31 20 20 4c |ER1);..D|CL 1 L|
|000018a0| 49 4e 45 5f 53 54 52 55 | 43 54 55 52 45 20 20 42 |INE_STRU|CTURE B|
|000018b0| 41 53 45 44 20 20 28 48 | 45 4c 50 50 4f 49 4e 54 |ASED (H|ELPPOINT|
|000018c0| 45 52 31 29 2c 0d 0a 20 | 20 20 20 20 20 20 32 20 |ER1),.. | 2 |
|000018d0| 20 49 4e 56 49 53 49 42 | 4c 45 20 20 20 20 20 43 | INVISIB|LE C|
|000018e0| 48 41 52 20 28 31 29 2c | 0d 0a 20 20 20 20 20 20 |HAR (1),|.. |
|000018f0| 20 32 20 20 56 49 53 49 | 42 4c 45 20 20 20 20 20 | 2 VISI|BLE |
|00001900| 20 20 43 48 41 52 20 28 | 4e 55 4d 43 4f 4c 53 33 | CHAR (|NUMCOLS3|
|00001910| 29 3b 0d 0a 44 43 4c 20 | 20 43 48 5f 42 41 53 45 |);..DCL | CH_BASE|
|00001920| 44 20 20 20 20 20 20 20 | 20 20 20 20 43 48 41 52 |D | CHAR|
|00001930| 20 42 41 53 45 44 20 20 | 28 48 45 4c 50 50 4f 49 | BASED |(HELPPOI|
|00001940| 4e 54 45 52 31 29 3b 0d | 0a 44 43 4c 20 20 4c 49 |NTER1);.|.DCL LI|
|00001950| 4e 45 5f 43 48 41 4e 47 | 45 44 20 20 20 20 20 20 |NE_CHANG|ED |
|00001960| 20 42 49 54 20 28 31 29 | 3b ff 0e 00 e0 00 00 0a | BIT (1)|;.......|
|00001970| 00 00 00 ff 0f 00 e0 00 | 0d 00 43 4f 4d 50 55 54 |........|..COMPUT|
|00001980| 45 5f 4c 49 4e 45 f0 0c | 06 00 00 00 00 00 00 00 |E_LINE..|........|
|00001990| 00 00 00 ff 30 00 e1 00 | ff 0f 00 e1 00 cd 00 43 |....0...|.......C|
|000019a0| 4f 4d 50 55 54 45 5f 4c | 49 4e 45 3a 20 50 52 4f |OMPUTE_L|INE: PRO|
|000019b0| 43 20 20 20 20 20 28 44 | 45 53 54 4c 49 4e 45 5f |C (D|ESTLINE_|
|000019c0| 41 44 44 52 2c 0d 0a 20 | 20 20 20 20 20 20 20 20 |ADDR,.. | |
|000019d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 | | S|
|000019e0| 4f 55 52 43 45 4c 49 4e | 45 31 5f 41 44 44 52 2c |OURCELIN|E1_ADDR,|
|000019f0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00001a00| 20 20 20 20 20 20 20 20 | 20 20 53 4f 55 52 43 45 | | SOURCE|
|00001a10| 4c 49 4e 45 32 5f 41 44 | 44 52 2c 0d 0a 20 20 20 |LINE2_AD|DR,.. |
|00001a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a30| 20 20 20 20 20 53 4f 55 | 52 43 45 4c 49 4e 45 33 | SOU|RCELINE3|
|00001a40| 5f 41 44 44 52 2c 0d 0a | 20 20 20 20 20 20 20 20 |_ADDR,..| |
|00001a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a60| 4e 55 4d 43 4f 4c 55 4d | 4e 53 29 f0 ff 0f 00 e6 |NUMCOLUM|NS).....|
|00001a70| 00 ee 01 44 43 4c 20 20 | 28 44 45 53 54 4c 49 4e |...DCL |(DESTLIN|
|00001a80| 45 5f 41 44 44 52 2c 0d | 0a 20 20 20 20 20 20 53 |E_ADDR,.|. S|
|00001a90| 4f 55 52 43 45 4c 49 4e | 45 31 5f 41 44 44 52 2c |OURCELIN|E1_ADDR,|
|00001aa0| 0d 0a 20 20 20 20 20 20 | 53 4f 55 52 43 45 4c 49 |.. |SOURCELI|
|00001ab0| 4e 45 32 5f 41 44 44 52 | 2c 0d 0a 20 20 20 20 20 |NE2_ADDR|,.. |
|00001ac0| 20 53 4f 55 52 43 45 4c | 49 4e 45 33 5f 41 44 44 | SOURCEL|INE3_ADD|
|00001ad0| 52 29 20 50 54 52 3b 0d | 0a 44 43 4c 20 20 4e 55 |R) PTR;.|.DCL NU|
|00001ae0| 4d 43 4f 4c 55 4d 4e 53 | 20 20 20 20 20 20 20 20 |MCOLUMNS| |
|00001af0| 20 49 4e 54 45 47 45 52 | 3b 0d 0a 44 43 4c 20 20 | INTEGER|;..DCL |
|00001b00| 4e 55 4d 42 45 52 5f 4e | 45 49 47 48 42 4f 55 52 |NUMBER_N|EIGHBOUR|
|00001b10| 53 20 20 49 4e 54 45 47 | 45 52 28 38 29 3b 0d 0a |S INTEG|ER(8);..|
|00001b20| 44 43 4c 20 20 43 4f 4c | 55 4d 4e 20 20 20 20 20 |DCL COL|UMN |
|00001b30| 20 20 20 20 20 20 20 20 | 49 4e 54 45 47 45 52 3b | |INTEGER;|
|00001b40| 0d 0a 44 43 4c 20 20 44 | 45 53 54 20 20 20 20 20 |..DCL D|EST |
|00001b50| 20 20 20 28 30 20 3a 20 | 4e 55 4d 43 4f 4c 55 4d | (0 : |NUMCOLUM|
|00001b60| 4e 53 29 20 43 48 41 52 | 0d 0a 20 20 20 20 20 42 |NS) CHAR|.. B|
|00001b70| 41 53 45 44 20 28 44 45 | 53 54 4c 49 4e 45 5f 41 |ASED (DE|STLINE_A|
|00001b80| 44 44 52 29 3b 0d 0a 44 | 43 4c 20 20 53 4f 55 52 |DDR);..D|CL SOUR|
|00001b90| 43 45 4c 49 4e 45 31 20 | 28 30 20 3a 20 4e 55 4d |CELINE1 |(0 : NUM|
|00001ba0| 43 4f 4c 55 4d 4e 53 29 | 20 43 48 41 52 0d 0a 20 |COLUMNS)| CHAR.. |
|00001bb0| 20 20 20 20 42 41 53 45 | 44 20 28 53 4f 55 52 43 | BASE|D (SOURC|
|00001bc0| 45 4c 49 4e 45 31 5f 41 | 44 44 52 29 3b 0d 0a 44 |ELINE1_A|DDR);..D|
|00001bd0| 43 4c 20 20 53 4f 55 52 | 43 45 4c 49 4e 45 32 20 |CL SOUR|CELINE2 |
|00001be0| 28 30 20 3a 20 4e 55 4d | 43 4f 4c 55 4d 4e 53 29 |(0 : NUM|COLUMNS)|
|00001bf0| 0d 0a 20 20 20 20 20 43 | 48 41 52 20 20 20 20 42 |.. C|HAR B|
|00001c00| 41 53 45 44 20 28 53 4f | 55 52 43 45 4c 49 4e 45 |ASED (SO|URCELINE|
|00001c10| 32 5f 41 44 44 52 29 3b | 0d 0a 44 43 4c 20 20 53 |2_ADDR);|..DCL S|
|00001c20| 4f 55 52 43 45 4c 49 4e | 45 33 20 28 30 20 3a 20 |OURCELIN|E3 (0 : |
|00001c30| 4e 55 4d 43 4f 4c 55 4d | 4e 53 29 20 43 48 41 52 |NUMCOLUM|NS) CHAR|
|00001c40| 0d 0a 20 20 20 20 20 42 | 41 53 45 44 20 28 53 4f |.. B|ASED (SO|
|00001c50| 55 52 43 45 4c 49 4e 45 | 33 5f 41 44 44 52 29 3b |URCELINE|3_ADDR);|
|00001c60| ff 12 00 f5 00 ff 0f 00 | f5 00 19 00 43 4f 4c 55 |........|....COLU|
|00001c70| 4d 4e 20 3d 20 31 20 54 | 4f 20 4e 55 4d 43 4f 4c |MN = 1 T|O NUMCOL|
|00001c80| 55 4d 4e 53 f0 ff 0f 00 | f6 00 ad 01 4e 55 4d 42 |UMNS....|....NUMB|
|00001c90| 45 52 5f 4e 45 49 47 48 | 42 4f 55 52 53 20 3d 0d |ER_NEIGH|BOURS =.|
|00001ca0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001cb0| 28 53 4f 55 52 43 45 4c | 49 4e 45 31 20 20 28 43 |(SOURCEL|INE1 (C|
|00001cc0| 4f 4c 55 4d 4e 20 2d 20 | 31 29 20 20 3d 20 27 58 |OLUMN - |1) = 'X|
|00001cd0| 27 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |').. | |
|00001ce0| 20 2b 20 28 53 4f 55 52 | 43 45 4c 49 4e 45 31 20 | + (SOUR|CELINE1 |
|00001cf0| 20 28 43 4f 4c 55 4d 4e | 29 20 20 20 20 20 20 3d | (COLUMN|) =|
|00001d00| 20 27 58 27 29 0d 0a 20 | 20 20 20 20 20 20 20 20 | 'X').. | |
|00001d10| 20 20 20 20 2b 20 28 53 | 4f 55 52 43 45 4c 49 4e | + (S|OURCELIN|
|00001d20| 45 31 20 20 28 43 4f 4c | 55 4d 4e 20 2b 20 31 29 |E1 (COL|UMN + 1)|
|00001d30| 20 20 3d 20 27 58 27 29 | 0d 0a 20 20 20 20 20 20 | = 'X')|.. |
|00001d40| 20 20 20 20 20 20 20 2b | 20 28 53 4f 55 52 43 45 | +| (SOURCE|
|00001d50| 4c 49 4e 45 32 20 20 28 | 43 4f 4c 55 4d 4e 20 2d |LINE2 (|COLUMN -|
|00001d60| 20 31 29 20 20 3d 20 27 | 58 27 29 0d 0a 20 20 20 | 1) = '|X').. |
|00001d70| 20 20 20 20 20 20 20 20 | 20 20 2b 20 28 53 4f 55 | | + (SOU|
|00001d80| 52 43 45 4c 49 4e 45 32 | 20 20 28 43 4f 4c 55 4d |RCELINE2| (COLUM|
|00001d90| 4e 20 2b 20 31 29 20 20 | 3d 20 27 58 27 29 0d 0a |N + 1) |= 'X')..|
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2b 20 28 | | + (|
|00001db0| 53 4f 55 52 43 45 4c 49 | 4e 45 33 20 20 28 43 4f |SOURCELI|NE3 (CO|
|00001dc0| 4c 55 4d 4e 20 2d 20 31 | 29 20 20 3d 20 27 58 27 |LUMN - 1|) = 'X'|
|00001dd0| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).. | |
|00001de0| 2b 20 28 53 4f 55 52 43 | 45 4c 49 4e 45 33 20 20 |+ (SOURC|ELINE3 |
|00001df0| 28 43 4f 4c 55 4d 4e 29 | 20 20 20 20 20 20 3d 20 |(COLUMN)| = |
|00001e00| 27 58 27 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |'X').. | |
|00001e10| 20 20 20 2b 20 28 53 4f | 55 52 43 45 4c 49 4e 45 | + (SO|URCELINE|
|00001e20| 33 20 20 28 43 4f 4c 55 | 4d 4e 20 2b 20 31 29 20 |3 (COLU|MN + 1) |
|00001e30| 20 3d 20 27 58 27 29 3b | ff 10 00 ff 00 00 00 ff | = 'X');|........|
|00001e40| 0f 00 ff 00 12 00 4e 55 | 4d 42 45 52 5f 4e 45 49 |......NU|MBER_NEI|
|00001e50| 47 48 42 4f 55 52 53 f0 | ff 11 00 ff 00 00 00 ff |GHBOURS.|........|
|00001e60| 0f 00 00 01 05 00 30 2c | 20 31 f0 ff 0d 00 01 01 |......0,| 1......|
|00001e70| 00 00 ff 0f 00 01 01 0a | 00 49 53 4f 4c 41 54 49 |........|.ISOLATI|
|00001e80| 4f 4e f0 ff 0f 00 02 01 | 15 00 44 45 53 54 20 28 |ON......|..DEST (|
|00001e90| 43 4f 4c 55 4d 4e 29 20 | 3d 20 27 20 27 3b f0 f0 |COLUMN) |= ' ';..|
|00001ea0| ff 11 00 03 01 00 00 ff | 0f 00 04 01 02 00 32 f0 |........|......2.|
|00001eb0| ff 0d 00 05 01 00 00 ff | 0f 00 05 01 08 00 53 55 |........|......SU|
|00001ec0| 52 56 49 56 45 f0 ff 0f | 00 06 01 26 00 44 45 53 |RVIVE...|...&.DES|
|00001ed0| 54 20 28 43 4f 4c 55 4d | 4e 29 20 3d 20 53 4f 55 |T (COLUM|N) = SOU|
|00001ee0| 52 43 45 4c 49 4e 45 32 | 20 28 43 4f 4c 55 4d 4e |RCELINE2| (COLUMN|
|00001ef0| 29 3b f0 f0 ff 11 00 07 | 01 00 00 ff 0f 00 08 01 |);......|........|
|00001f00| 02 00 33 f0 ff 0d 00 09 | 01 00 00 ff 0f 00 09 01 |..3.....|........|
|00001f10| 06 00 42 49 52 54 48 f0 | ff 0f 00 0a 01 15 00 44 |..BIRTH.|.......D|
|00001f20| 45 53 54 20 28 43 4f 4c | 55 4d 4e 29 20 3d 20 27 |EST (COL|UMN) = '|
|00001f30| 58 27 3b f0 f0 f0 ff 11 | 00 0b 01 00 00 ff 01 00 |X';.....|........|
|00001f40| 00 00 11 00 09 00 f0 ff | 0d 00 0d 01 00 00 ff 0f |........|........|
|00001f50| 00 0d 01 0f 00 4f 56 45 | 52 50 4f 50 55 4c 41 54 |.....OVE|RPOPULAT|
|00001f60| 49 4f 4e f0 ff 0f 00 0e | 01 15 00 44 45 53 54 20 |ION.....|...DEST |
|00001f70| 28 43 4f 4c 55 4d 4e 29 | 20 3d 20 27 20 27 3b f0 |(COLUMN)| = ' ';.|
|00001f80| f0 f0 f0 ff 0f 00 12 01 | 08 00 52 45 54 55 52 4e |........|..RETURN|
|00001f90| 3b f0 f0 ff 05 00 15 01 | 00 00 ff 14 00 16 01 ff |;.......|........|
|00001fa0| 0f 00 16 01 33 00 20 4e | 45 57 5f 4e 55 4d 42 45 |....3. N|EW_NUMBE|
|00001fb0| 52 20 28 27 4c 45 4e 47 | 54 48 20 4f 46 20 41 20 |R ('LENG|TH OF A |
|00001fc0| 4c 49 4e 45 20 3f 27 2c | 20 32 31 2c 20 4e 55 4d |LINE ?',| 21, NUM|
|00001fd0| 43 4f 4c 55 4d 4e 53 29 | f0 ff 06 00 17 01 ff 0f |COLUMNS)|........|
|00001fe0| 00 17 01 1d 00 4e 55 4d | 43 4f 4c 55 4d 4e 53 20 |.....NUM|COLUMNS |
|00001ff0| 3c 3d 20 4d 41 58 5f 4e | 55 4d 43 4f 4c 55 4d 4e |<= MAX_N|UMCOLUMN|
|00002000| 53 f0 ff 14 00 19 01 ff | 0f 00 19 01 26 00 20 49 |S.......|....&. I|
|00002010| 54 53 5f 43 4f 4e 56 4e | 43 48 20 28 4d 41 58 5f |TS_CONVN|CH (MAX_|
|00002020| 4e 55 4d 43 4f 4c 55 4d | 4e 53 2c 20 4e 55 4d 5f |NUMCOLUM|NS, NUM_|
|00002030| 43 48 29 f0 ff 14 00 1a | 01 ff 0f 00 1a 01 55 00 |CH).....|......U.|
|00002040| 20 50 52 49 4e 54 43 20 | 28 4e 55 4d 43 48 5f 53 | PRINTC |(NUMCH_S|
|00002050| 54 52 55 43 2e 45 4e 44 | 5f 32 20 7c 7c 0d 0a 20 |TRUC.END|_2 ||.. |
|00002060| 20 27 20 3d 20 4d 41 58 | 49 4d 55 4d 20 4e 55 4d | ' = MAX|IMUM NUM|
|00002070| 42 45 52 20 4f 46 20 43 | 4f 4c 55 4d 4e 53 20 49 |BER OF C|OLUMNS I|
|00002080| 4e 20 54 48 49 53 20 56 | 45 52 53 49 4f 4e 27 2c |N THIS V|ERSION',|
|00002090| 20 34 35 29 f0 f0 ff 05 | 00 1d 01 00 00 ff 14 00 | 45)....|........|
|000020a0| 1e 01 ff 0f 00 1e 01 32 | 00 20 4e 45 57 5f 4e 55 |.......2|. NEW_NU|
|000020b0| 4d 42 45 52 20 28 27 4e | 55 4d 42 45 52 20 4f 46 |MBER ('N|UMBER OF|
|000020c0| 20 4c 49 4e 45 53 20 3f | 27 2c 20 31 37 2c 20 4e | LINES ?|', 17, N|
|000020d0| 55 4d 43 4f 4c 55 4d 4e | 53 29 f0 ff 06 00 1f 01 |UMCOLUMN|S)......|
|000020e0| ff 0b 00 1f 01 ff 0f 00 | 1f 01 18 00 4e 55 4d 4c |........|....NUML|
|000020f0| 49 4e 45 53 20 3e 20 4d | 41 58 5f 4e 55 4d 4c 49 |INES > M|AX_NUMLI|
|00002100| 4e 45 53 f0 f0 ff 14 00 | 21 01 ff 0f 00 21 01 24 |NES.....|!....!.$|
|00002110| 00 20 49 54 53 5f 43 4f | 4e 56 4e 43 48 20 28 4d |. ITS_CO|NVNCH (M|
|00002120| 41 58 5f 4e 55 4d 4c 49 | 4e 45 53 2c 20 4e 55 4d |AX_NUMLI|NES, NUM|
|00002130| 5f 43 48 29 f0 ff 14 00 | 22 01 ff 0f 00 22 01 53 |_CH)....|"....".S|
|00002140| 00 20 50 52 49 4e 54 43 | 20 28 4e 55 4d 43 48 5f |. PRINTC| (NUMCH_|
|00002150| 53 54 52 55 43 2e 45 4e | 44 5f 32 20 7c 7c 0d 0a |STRUC.EN|D_2 ||..|
|00002160| 20 20 27 20 3d 20 4d 41 | 58 49 4d 55 4d 20 4e 55 | ' = MA|XIMUM NU|
|00002170| 4d 42 45 52 20 4f 46 20 | 4c 49 4e 45 53 20 49 4e |MBER OF |LINES IN|
|00002180| 20 54 48 49 53 20 56 45 | 52 53 49 4f 4e 27 2c 20 | THIS VE|RSION', |
|00002190| 34 32 29 f0 f0 ff 0e 00 | 25 01 00 0b 00 00 00 ff |42).....|%.......|
|000021a0| 0f 00 25 01 10 00 49 6e | 69 74 69 61 6c 69 7a 61 |..%...In|itializa|
|000021b0| 74 69 6f 6e 73 f0 b0 02 | 00 00 00 00 00 00 00 00 |tions...|........|
|000021c0| 00 00 ff 0f 00 26 01 a4 | 00 4e 55 4d 43 4f 4c 53 |.....&..|.NUMCOLS|
|000021d0| 33 20 3d 20 4e 55 4d 43 | 4f 4c 55 4d 4e 53 20 2b |3 = NUMC|OLUMNS +|
|000021e0| 20 33 3b 0d 0a 4e 55 4d | 43 4f 4c 53 34 20 3d 20 | 3;..NUM|COLS4 = |
|000021f0| 4e 55 4d 43 4f 4c 53 33 | 20 20 2b 20 31 3b 0d 0a |NUMCOLS3| + 1;..|
|00002200| 0d 0a 57 4f 52 4b 31 2c | 0d 0a 57 4f 52 4b 32 20 |..WORK1,|..WORK2 |
|00002210| 20 3d 20 27 20 27 3b 0d | 0a 0d 0a 48 45 4c 50 50 | = ' ';.|...HELPP|
|00002220| 4f 49 4e 54 45 52 31 20 | 20 3d 20 20 41 44 44 52 |OINTER1 | = ADDR|
|00002230| 20 28 57 4f 52 4b 31 29 | 3b 0d 0a 48 45 4c 50 50 | (WORK1)|;..HELPP|
|00002240| 4f 49 4e 54 45 52 32 20 | 20 3d 20 20 41 44 44 52 |OINTER2 | = ADDR|
|00002250| 20 28 57 4f 52 4b 32 29 | 3b 0d 0a 4c 49 4e 45 5f | (WORK2)|;..LINE_|
|00002260| 4e 52 20 20 20 20 20 3d | 20 20 30 3b ff 04 00 2f |NR =| 0;.../|
|00002270| 01 00 00 ff 0f 00 2f 01 | 18 00 4c 49 4e 45 5f 4e |....../.|..LINE_N|
|00002280| 52 20 3c 3d 20 4e 55 4d | 4c 49 4e 45 53 20 2b 20 |R <= NUM|LINES + |
|00002290| 31 f0 ff 0f 00 30 01 5b | 00 46 49 45 4c 44 31 5f |1....0.[|.FIELD1_|
|000022a0| 4c 49 4e 45 5f 41 44 44 | 52 20 28 4c 49 4e 45 5f |LINE_ADD|R (LINE_|
|000022b0| 4e 52 29 20 20 3d 20 20 | 48 45 4c 50 50 4f 49 4e |NR) = |HELPPOIN|
|000022c0| 54 45 52 31 3b 0d 0a 46 | 49 45 4c 44 32 5f 4c 49 |TER1;..F|IELD2_LI|
|000022d0| 4e 45 5f 41 44 44 52 20 | 28 4c 49 4e 45 5f 4e 52 |NE_ADDR |(LINE_NR|
|000022e0| 29 20 20 3d 20 20 48 45 | 4c 50 50 4f 49 4e 54 45 |) = HE|LPPOINTE|
|000022f0| 52 32 3b ff 14 00 32 01 | ff 0f 00 32 01 1f 00 20 |R2;...2.|...2... |
|00002300| 49 54 53 5f 43 4f 4e 56 | 4e 43 48 20 28 4c 49 4e |ITS_CONV|NCH (LIN|
|00002310| 45 5f 4e 52 2c 20 4e 55 | 4d 5f 43 48 29 f0 ff 0f |E_NR, NU|M_CH)...|
|00002320| 00 33 01 f3 00 28 48 45 | 4c 50 50 4f 49 4e 54 45 |.3...(HE|LPPOINTE|
|00002330| 52 31 20 2b 20 4e 55 4d | 43 4f 4c 55 4d 4e 53 20 |R1 + NUM|COLUMNS |
|00002340| 2b 20 32 29 20 2d 3e 20 | 43 48 32 5f 42 41 53 45 |+ 2) -> |CH2_BASE|
|00002350| 44 0d 0a 20 3d 20 4e 55 | 4d 43 48 5f 53 54 52 55 |D.. = NU|MCH_STRU|
|00002360| 43 2e 45 4e 44 5f 32 3b | 0d 0a 28 48 45 4c 50 50 |C.END_2;|..(HELPP|
|00002370| 4f 49 4e 54 45 52 32 20 | 2b 20 4e 55 4d 43 4f 4c |OINTER2 |+ NUMCOL|
|00002380| 55 4d 4e 53 20 2b 20 32 | 29 20 2d 3e 20 43 48 32 |UMNS + 2|) -> CH2|
|00002390| 5f 42 41 53 45 44 0d 0a | 20 3d 20 4e 55 4d 43 48 |_BASED..| = NUMCH|
|000023a0| 5f 53 54 52 55 43 2e 45 | 4e 44 5f 32 3b 0d 0a 48 |_STRUC.E|ND_2;..H|
|000023b0| 45 4c 50 50 4f 49 4e 54 | 45 52 31 20 3d 20 48 45 |ELPPOINT|ER1 = HE|
|000023c0| 4c 50 50 4f 49 4e 54 45 | 52 31 20 2b 20 4e 55 4d |LPPOINTE|R1 + NUM|
|000023d0| 43 4f 4c 53 33 3b 0d 0a | 48 45 4c 50 50 4f 49 4e |COLS3;..|HELPPOIN|
|000023e0| 54 45 52 32 20 3d 20 48 | 45 4c 50 50 4f 49 4e 54 |TER2 = H|ELPPOINT|
|000023f0| 45 52 32 20 2b 20 4e 55 | 4d 43 4f 4c 53 33 3b 0d |ER2 + NU|MCOLS3;.|
|00002400| 0a 4c 49 4e 45 5f 4e 52 | 20 3d 20 4c 49 4e 45 5f |.LINE_NR| = LINE_|
|00002410| 4e 52 20 2b 20 31 3b f0 | ff 0f 00 3b 01 47 00 47 |NR + 1;.|...;.G.G|
|00002420| 4c 4f 42 41 4c 31 20 3d | 20 41 44 44 52 20 28 46 |LOBAL1 =| ADDR (F|
|00002430| 49 45 4c 44 31 5f 4c 49 | 4e 45 5f 41 44 44 52 29 |IELD1_LI|NE_ADDR)|
|00002440| 3b 0d 0a 47 4c 4f 42 41 | 4c 32 20 3d 20 41 44 44 |;..GLOBA|L2 = ADD|
|00002450| 52 20 28 46 49 45 4c 44 | 32 5f 4c 49 4e 45 5f 41 |R (FIELD|2_LINE_A|
|00002460| 44 44 52 29 3b f0 ff 05 | 00 3d 01 00 00 ff 14 00 |DDR);...|.=......|
|00002470| 3e 01 ff 0f 00 3e 01 08 | 00 20 4f 55 54 50 55 54 |>....>..|. OUTPUT|
|00002480| f0 ff 0e 00 3f 01 00 0c | 00 00 00 ff 0f 00 3f 01 |....?...|......?.|
|00002490| 0c 00 43 68 61 6e 67 65 | 20 6c 69 6e 65 f0 e8 03 |..Change| line...|
|000024a0| 00 00 00 00 00 00 00 00 | 00 00 ff 0f 00 40 01 15 |........|.....@..|
|000024b0| 00 4c 49 4e 45 5f 43 48 | 41 4e 47 45 44 20 3d 20 |.LINE_CH|ANGED = |
|000024c0| 27 30 27 42 3b ff 13 00 | 41 01 ff 0f 00 42 01 12 |'0'B;...|A....B..|
|000024d0| 00 52 45 41 44 5f 4f 4b | 20 3d 20 27 31 27 42 3b |.READ_OK| = '1'B;|
|000024e0| 0d 0a ff 0f 00 43 01 15 | 00 4c 49 4e 45 5f 43 48 |.....C..|.LINE_CH|
|000024f0| 41 4e 47 45 44 20 3d 20 | 27 30 27 42 3b ff 14 00 |ANGED = |'0'B;...|
|00002500| 44 01 ff 0f 00 44 01 44 | 00 20 50 52 49 4e 54 43 |D....D.D|. PRINTC|
|00002510| 20 28 27 4e 55 4d 42 45 | 52 20 4f 46 20 4c 49 4e | ('NUMBE|R OF LIN|
|00002520| 45 20 54 4f 20 43 48 41 | 4e 47 45 20 27 0d 0a 20 |E TO CHA|NGE '.. |
|00002530| 20 43 41 54 20 27 28 32 | 20 44 49 47 49 54 53 29 | CAT '(2| DIGITS)|
|00002540| 20 4f 52 20 30 30 27 2c | 20 35 31 29 f0 ff 14 00 | OR 00',| 51)....|
|00002550| 46 01 ff 0f 00 46 01 19 | 00 20 52 45 41 44 43 20 |F....F..|. READC |
|00002560| 28 43 48 32 2c 32 20 2c | 20 52 45 41 44 5f 4f 4b |(CH2,2 ,| READ_OK|
|00002570| 29 f0 ff 07 00 47 01 00 | 00 ff 08 00 47 01 00 00 |)....G..|....G...|
|00002580| ff 0b 00 47 01 ff 0f 00 | 47 01 08 00 52 45 41 44 |...G....|G...READ|
|00002590| 5f 4f 4b f0 f0 ff 0f 00 | 49 01 11 00 47 4f 54 4f |_OK.....|I...GOTO|
|000025a0| 20 52 45 41 44 5f 45 52 | 52 4f 52 3b f0 ff 08 00 | READ_ER|ROR;....|
|000025b0| 4a 01 00 00 ff 0f 00 4b | 01 0c 00 43 48 32 20 4e |J......K|...CH2 N|
|000025c0| 45 20 27 30 30 27 f0 ff | 0f 00 4d 01 51 00 4e 55 |E '00'..|..M.Q.NU|
|000025d0| 4d 43 48 5f 53 54 52 55 | 43 2e 42 45 47 49 4e 20 |MCH_STRU|C.BEGIN |
|000025e0| 3d 20 27 20 27 3b 0d 0a | 4e 55 4d 43 48 5f 53 54 |= ' ';..|NUMCH_ST|
|000025f0| 52 55 43 2e 45 4e 44 5f | 32 20 3d 20 43 48 32 3b |RUC.END_|2 = CH2;|
|00002600| 0d 0a 4c 49 4e 45 5f 4e | 52 20 3d 20 4e 55 4d 56 |..LINE_N|R = NUMV|
|00002610| 41 4c 55 45 20 28 4e 55 | 4d 5f 43 48 29 3b ff 03 |ALUE (NU|M_CH);..|
|00002620| 00 50 01 00 00 ff 0f 00 | 50 01 13 00 4c 49 4e 45 |.P......|P...LINE|
|00002630| 5f 4e 52 20 3e 20 4e 55 | 4d 4c 49 4e 45 53 f0 ff |_NR > NU|MLINES..|
|00002640| 14 00 52 01 ff 0f 00 52 | 01 25 00 20 50 52 49 4e |..R....R|.%. PRIN|
|00002650| 54 43 20 28 27 4c 49 4e | 45 20 4e 55 4d 42 45 52 |TC ('LIN|E NUMBER|
|00002660| 20 54 4f 4f 20 48 49 47 | 48 27 2c 20 32 31 29 f0 | TOO HIG|H', 21).|
|00002670| f0 ff 0e 00 55 01 00 10 | 00 00 00 ff 0f 00 55 01 |....U...|......U.|
|00002680| 0f 00 4c 69 6e 65 20 6e | 75 6d 62 65 72 20 6f 6b |..Line n|umber ok|
|00002690| f0 bb 01 00 00 00 00 00 | 00 00 00 00 00 ff 0f 00 |........|........|
|000026a0| 56 01 42 00 48 45 4c 50 | 50 4f 49 4e 54 45 52 31 |V.B.HELP|POINTER1|
|000026b0| 0d 0a 20 3d 20 46 49 45 | 4c 44 31 5f 4c 49 4e 45 |.. = FIE|LD1_LINE|
|000026c0| 5f 41 44 44 52 20 28 4c | 49 4e 45 5f 4e 52 29 20 |_ADDR (L|INE_NR) |
|000026d0| 2b 20 31 3b 0d 0a 52 45 | 41 44 5f 4f 4b 20 3d 20 |+ 1;..RE|AD_OK = |
|000026e0| 27 31 27 42 3b ff 14 00 | 59 01 ff 0f 00 59 01 23 |'1'B;...|Y....Y.#|
|000026f0| 00 20 52 45 41 44 43 20 | 28 4c 49 4e 45 2c 20 4e |. READC |(LINE, N|
|00002700| 55 4d 43 4f 4c 55 4d 4e | 53 2c 20 52 45 41 44 5f |UMCOLUMN|S, READ_|
|00002710| 4f 4b 29 f0 ff 03 00 5a | 01 00 00 ff 0b 00 5a 01 |OK)....Z|......Z.|
|00002720| ff 0f 00 5a 01 08 00 52 | 45 41 44 5f 4f 4b f0 f0 |...Z...R|EAD_OK..|
|00002730| ff 0f 00 5c 01 11 00 47 | 4f 54 4f 20 52 45 41 44 |...\...G|OTO READ|
|00002740| 5f 45 52 52 4f 52 3b f0 | ff 0f 00 5f 01 50 00 2f |_ERROR;.|..._.P./|
|00002750| 2a 20 49 66 20 6e 6f 74 | 20 27 58 27 20 75 73 65 |* If not| 'X' use|
|00002760| 64 20 66 6f 72 20 6d 61 | 72 6b 69 6e 67 3a 20 2a |d for ma|rking: *|
|00002770| 2f 0d 0a 48 45 4c 50 50 | 4f 49 4e 54 45 52 32 0d |/..HELPP|OINTER2.|
|00002780| 0a 20 3d 20 48 45 4c 50 | 50 4f 49 4e 54 45 52 31 |. = HELP|POINTER1|
|00002790| 20 2b 20 4e 55 4d 43 4f | 4c 55 4d 4e 53 3b ff 04 | + NUMCO|LUMNS;..|
|000027a0| 00 62 01 00 00 ff 0f 00 | 62 01 1c 00 48 45 4c 50 |.b......|b...HELP|
|000027b0| 50 4f 49 4e 54 45 52 31 | 20 3c 20 48 45 4c 50 50 |POINTER1| < HELPP|
|000027c0| 4f 49 4e 54 45 52 32 f0 | ff 03 00 63 01 00 00 ff |OINTER2.|...c....|
|000027d0| 0f 00 63 01 10 00 43 48 | 5f 42 41 53 45 44 20 4e |..c...CH|_BASED N|
|000027e0| 45 20 27 20 27 f0 ff 0f | 00 65 01 10 00 43 48 5f |E ' '...|.e...CH_|
|000027f0| 42 41 53 45 44 20 3d 20 | 27 58 27 3b f0 ff 01 00 |BASED = |'X';....|
|00002800| 00 00 03 00 03 00 f0 ff | 0f 00 67 01 21 00 48 45 |........|..g.!.HE|
|00002810| 4c 50 50 4f 49 4e 54 45 | 52 31 20 3d 20 48 45 4c |LPPOINTE|R1 = HEL|
|00002820| 50 50 4f 49 4e 54 45 52 | 31 20 2b 20 31 3b f0 ff |PPOINTER|1 + 1;..|
|00002830| 0f 00 69 01 15 00 4c 49 | 4e 45 5f 43 48 41 4e 47 |..i...LI|NE_CHANG|
|00002840| 45 44 20 3d 20 27 31 27 | 42 3b f0 f0 f0 f0 f0 ff |ED = '1'|B;......|
|00002850| 08 00 6c 01 00 00 ff 01 | 00 00 00 08 00 08 00 f0 |..l.....|........|
|00002860| ff 0f 00 6e 01 08 00 52 | 45 54 55 52 4e 3b f0 f0 |...n...R|ETURN;..|
|00002870| f0 ff 0f 00 70 01 0d 00 | 4c 49 4e 45 5f 43 48 41 |....p...|LINE_CHA|
|00002880| 4e 47 45 44 f0 f0 f0 ff | 0f 00 74 01 08 00 52 45 |NGED....|..t...RE|
|00002890| 54 55 52 4e 3b ff 0e 00 | 75 01 00 0d 00 00 00 ff |TURN;...|u.......|
|000028a0| 0f 00 75 01 07 00 4f 55 | 54 50 55 54 f0 ea 00 00 |..u...OU|TPUT....|
|000028b0| 00 00 00 00 00 00 00 00 | 00 ff 33 00 76 01 ff 0f |........|..3.v...|
|000028c0| 00 76 01 0f 00 4f 55 54 | 50 55 54 3a 20 45 4e 54 |.v...OUT|PUT: ENT|
|000028d0| 52 59 3b f0 ff 14 00 77 | 01 ff 0f 00 77 01 11 00 |RY;....w|....w...|
|000028e0| 20 50 52 49 4e 54 43 20 | 28 27 20 27 2c 20 31 29 | PRINTC |(' ', 1)|
|000028f0| f0 ff 12 00 78 01 ff 0f | 00 78 01 18 00 4c 49 4e |....x...|.x...LIN|
|00002900| 45 5f 4e 52 20 3d 20 31 | 20 54 4f 20 4e 55 4d 4c |E_NR = 1| TO NUML|
|00002910| 49 4e 45 53 f0 ff 14 00 | 79 01 ff 0f 00 79 01 64 |INES....|y....y.d|
|00002920| 00 20 50 52 49 4e 54 43 | 20 28 47 4c 4f 42 41 4c |. PRINTC| (GLOBAL|
|00002930| 31 20 2d 3e 20 4c 49 4e | 45 5f 41 44 44 52 20 28 |1 -> LIN|E_ADDR (|
|00002940| 4c 49 4e 45 5f 4e 52 29 | 20 2d 3e 0d 0a 20 20 20 |LINE_NR)| ->.. |
|00002950| 20 20 20 20 20 20 4c 49 | 4e 45 5f 53 54 52 55 43 | LI|NE_STRUC|
|00002960| 54 55 52 2e 56 49 53 49 | 42 4c 45 2c 0d 0a 20 20 |TUR.VISI|BLE,.. |
|00002970| 20 20 20 20 20 20 20 20 | 20 20 20 4e 55 4d 43 4f | | NUMCO|
|00002980| 4c 53 33 29 f0 f0 f0 ff | 0f 00 7d 01 08 00 52 45 |LS3)....|..}...RE|
|00002990| 54 55 52 4e 3b f0 f0 ff | 0e 00 7e 01 00 0e 00 00 |TURN;...|..~.....|
|000029a0| 00 ff 0f 00 7e 01 09 00 | 47 41 4d 45 53 54 45 50 |....~...|GAMESTEP|
|000029b0| f0 d0 01 00 00 00 00 00 | 00 00 00 00 00 ff 33 00 |........|......3.|
|000029c0| 7f 01 ff 0f 00 7f 01 11 | 00 47 41 4d 45 53 54 45 |........|.GAMESTE|
|000029d0| 50 3a 20 45 4e 54 52 59 | 3b f0 ff 0f 00 80 01 0d |P: ENTRY|;.......|
|000029e0| 00 4c 49 4e 45 5f 4e 52 | 20 3d 20 31 3b ff 04 00 |.LINE_NR| = 1;...|
|000029f0| 81 01 00 00 ff 0f 00 81 | 01 16 00 28 4c 49 4e 45 |........|...(LINE|
|00002a00| 5f 4e 52 20 3c 3d 20 4e | 55 4d 4c 49 4e 45 53 29 |_NR <= N|UMLINES)|
|00002a10| f0 ff 14 00 82 01 ff 0f | 00 82 01 b0 00 43 4f 4d |........|.....COM|
|00002a20| 50 55 54 45 5f 4c 49 4e | 45 0d 0a 20 28 47 4c 4f |PUTE_LIN|E.. (GLO|
|00002a30| 42 41 4c 32 20 2d 3e 20 | 4c 49 4e 45 5f 41 44 44 |BAL2 -> |LINE_ADD|
|00002a40| 52 20 28 4c 49 4e 45 5f | 4e 52 29 2c 0d 0a 20 20 |R (LINE_|NR),.. |
|00002a50| 47 4c 4f 42 41 4c 31 20 | 2d 3e 20 4c 49 4e 45 5f |GLOBAL1 |-> LINE_|
|00002a60| 41 44 44 52 20 28 4c 49 | 4e 45 5f 4e 52 20 2d 20 |ADDR (LI|NE_NR - |
|00002a70| 31 29 2c 0d 0a 20 20 47 | 4c 4f 42 41 4c 31 20 2d |1),.. G|LOBAL1 -|
|00002a80| 3e 20 4c 49 4e 45 5f 41 | 44 44 52 20 28 4c 49 4e |> LINE_A|DDR (LIN|
|00002a90| 45 5f 4e 52 29 2c 0d 0a | 20 20 47 4c 4f 42 41 4c |E_NR),..| GLOBAL|
|00002aa0| 31 20 2d 3e 20 4c 49 4e | 45 5f 41 44 44 52 20 28 |1 -> LIN|E_ADDR (|
|00002ab0| 4c 49 4e 45 5f 4e 52 20 | 2b 20 31 29 2c 0d 0a 20 |LINE_NR |+ 1),.. |
|00002ac0| 20 4e 55 4d 43 4f 4c 55 | 4d 4e 53 29 f0 ff 0f 00 | NUMCOLU|MNS)....|
|00002ad0| 88 01 17 00 4c 49 4e 45 | 5f 4e 52 20 3d 20 4c 49 |....LINE|_NR = LI|
|00002ae0| 4e 45 5f 4e 52 20 2b 20 | 31 3b f0 ff 33 00 8a 01 |NE_NR + |1;..3...|
|00002af0| ff 0f 00 8a 01 1a 00 45 | 58 43 48 41 4e 47 45 5f |.......E|XCHANGE_|
|00002b00| 53 4f 55 52 43 45 5f 41 | 4e 44 5f 44 45 53 54 3a |SOURCE_A|ND_DEST:|
|00002b10| f0 ff 0f 00 8b 01 4f 00 | 48 45 4c 50 50 4f 49 4e |......O.|HELPPOIN|
|00002b20| 54 45 52 31 20 3d 20 47 | 4c 4f 42 41 4c 31 3b 0d |TER1 = G|LOBAL1;.|
|00002b30| 0a 47 4c 4f 42 41 4c 31 | 20 20 20 20 20 20 3d 20 |.GLOBAL1| = |
|00002b40| 47 4c 4f 42 41 4c 32 3b | 0d 0a 47 4c 4f 42 41 4c |GLOBAL2;|..GLOBAL|
|00002b50| 32 20 20 20 20 20 20 3d | 20 48 45 4c 50 50 4f 49 |2 =| HELPPOI|
|00002b60| 4e 54 45 52 31 3b f0 ff | 0f 00 8e 01 02 00 20 f0 |NTER1;..|...... .|
|00002b70| f0 ff 0f 00 8f 01 08 00 | 52 45 54 55 52 4e 3b f0 |........|RETURN;.|
|00002b80| f0 f0 f0 f0 ff 0e 00 92 | 01 00 03 00 00 00 ff 0f |........|........|
|00002b90| 00 92 01 0f 00 49 6d 70 | 6c 65 6d 65 6e 74 61 74 |.....Imp|lementat|
|00002ba0| 69 6f 6e f0 5e 03 00 00 | 00 00 00 00 00 00 00 00 |ion.^...|........|
|00002bb0| ff 04 00 93 01 00 00 ff | 0f 00 93 01 14 00 55 53 |........|......US|
|00002bc0| 45 52 5f 57 41 4e 54 53 | 5f 41 47 41 49 4e 20 28 |ER_WANTS|_AGAIN (|
|00002bd0| 29 f0 ff 03 00 94 01 00 | 00 ff 0f 00 94 01 13 00 |).......|........|
|00002be0| 4e 45 57 5f 46 49 47 55 | 52 45 5f 44 45 53 49 52 |NEW_FIGU|RE_DESIR|
|00002bf0| 45 44 f0 ff 14 00 96 01 | ff 0f 00 96 01 11 00 53 |ED......|.......S|
|00002c00| 45 54 5f 53 54 41 52 54 | 5f 46 49 47 55 52 45 f0 |ET_START|_FIGURE.|
|00002c10| ff 0f 00 97 01 1b 00 4e | 45 57 5f 46 49 47 55 52 |.......N|EW_FIGUR|
|00002c20| 45 5f 44 45 53 49 52 45 | 44 20 3d 20 27 30 27 42 |E_DESIRE|D = '0'B|
|00002c30| 3b f0 ff 01 00 00 00 03 | 00 03 00 f0 ff 03 00 99 |;.......|........|
|00002c40| 01 00 00 ff 0b 00 99 01 | ff 0f 00 99 01 15 00 4e |........|.......N|
|00002c50| 55 4d 42 45 52 5f 4f 55 | 54 50 55 54 53 5f 56 41 |UMBER_OU|TPUTS_VA|
|00002c60| 4c 49 44 f0 f0 ff 14 00 | 9b 01 ff 0f 00 9b 01 62 |LID.....|.......b|
|00002c70| 00 20 4e 45 57 5f 4e 55 | 4d 42 45 52 20 28 27 4e |. NEW_NU|MBER ('N|
|00002c80| 55 4d 42 45 52 20 4f 46 | 20 4f 55 54 50 55 54 53 |UMBER OF| OUTPUTS|
|00002c90| 20 55 4e 54 49 4c 20 27 | 0d 0a 20 20 43 41 54 20 | UNTIL '|.. CAT |
|00002ca0| 27 4e 45 58 54 20 49 4e | 50 55 54 27 2c 20 34 32 |'NEXT IN|PUT', 42|
|00002cb0| 2c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,.. | |
|00002cc0| 20 20 20 4e 55 4d 42 45 | 52 5f 4f 55 54 50 55 54 | NUMBE|R_OUTPUT|
|00002cd0| 53 29 f0 ff 0f 00 9e 01 | 1d 00 4e 55 4d 42 45 52 |S)......|..NUMBER|
|00002ce0| 5f 4f 55 54 50 55 54 53 | 5f 56 41 4c 49 44 20 3d |_OUTPUTS|_VALID =|
|00002cf0| 20 27 31 27 42 3b f0 ff | 01 00 00 00 03 00 03 00 | '1'B;..|........|
|00002d00| f0 ff 03 00 a0 01 00 00 | ff 0b 00 a0 01 ff 0f 00 |........|........|
|00002d10| a0 01 11 00 53 54 45 50 | 4e 55 4d 42 45 52 5f 56 |....STEP|NUMBER_V|
|00002d20| 41 4c 49 44 f0 f0 ff 14 | 00 a2 01 ff 0f 00 a2 01 |ALID....|........|
|00002d30| 56 00 20 4e 45 57 5f 4e | 55 4d 42 45 52 20 28 27 |V. NEW_N|UMBER ('|
|00002d40| 4e 55 4d 42 45 52 20 4f | 46 20 53 54 45 50 53 20 |NUMBER O|F STEPS |
|00002d50| 42 45 54 57 45 45 4e 20 | 54 57 4f 20 4f 55 54 50 |BETWEEN |TWO OUTP|
|00002d60| 55 54 53 20 27 2c 20 33 | 38 2c 0d 0a 20 20 20 20 |UTS ', 3|8,.. |
|00002d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 54 45 50 | | STEP|
|00002d80| 4e 55 4d 42 45 52 29 f0 | ff 0f 00 a4 01 19 00 53 |NUMBER).|.......S|
|00002d90| 54 45 50 4e 55 4d 42 45 | 52 5f 56 41 4c 49 44 20 |TEPNUMBE|R_VALID |
|00002da0| 3d 20 27 31 27 42 3b f0 | ff 01 00 00 00 03 00 03 |= '1'B;.|........|
|00002db0| 00 f0 ff 12 00 a6 01 ff | 0f 00 a6 01 18 00 49 20 |........|......I |
|00002dc0| 3d 20 31 20 54 4f 20 4e | 55 4d 42 45 52 5f 4f 55 |= 1 TO N|UMBER_OU|
|00002dd0| 54 50 55 54 53 f0 ff 12 | 00 a7 01 ff 0f 00 a7 01 |TPUTS...|........|
|00002de0| 14 00 4a 20 3d 20 31 20 | 54 4f 20 53 54 45 50 4e |..J = 1 |TO STEPN|
|00002df0| 55 4d 42 45 52 f0 ff 14 | 00 a8 01 ff 0f 00 a8 01 |UMBER...|........|
|00002e00| 0a 00 20 47 41 4d 45 53 | 54 45 50 f0 f0 ff 14 00 |.. GAMES|TEP.....|
|00002e10| aa 01 ff 0f 00 aa 01 08 | 00 20 4f 55 54 50 55 54 |........|. OUTPUT|
|00002e20| f0 f0 f0 ff 0f 00 ad 01 | 29 00 0d 0a 52 45 54 55 |........|)...RETU|
|00002e30| 52 4e 3b 20 2f 2a 20 4e | 6f 72 6d 61 6c 20 65 6e |RN; /* N|ormal en|
|00002e40| 64 20 6f 66 20 70 72 6f | 67 72 61 6d 20 2a 2f 0d |d of pro|gram */.|
|00002e50| 0a 20 ff 33 00 b0 01 ff | 0f 00 b0 01 0c 00 52 45 |. .3....|......RE|
|00002e60| 41 44 5f 45 52 52 4f 52 | 3a f0 ff 14 00 b1 01 ff |AD_ERROR|:.......|
|00002e70| 0f 00 b1 01 1c 00 20 50 | 52 49 4e 54 43 20 28 27 |...... P|RINTC ('|
|00002e80| 52 45 41 44 20 45 52 52 | 4f 52 21 27 2c 20 31 31 |READ ERR|OR!', 11|
|00002e90| 29 f0 ff 0f 00 b2 01 5f | 00 2f 2a 31 20 43 41 4c |)......_|./*1 CAL|
|00002ea0| 4c 20 50 52 49 4e 54 43 | 20 28 27 53 59 53 44 54 |L PRINTC| ('SYSDT|
|00002eb0| 41 20 4e 6f 54 20 28 50 | 52 49 4d 41 52 59 29 3f |A NoT (P|RIMARY)?|
|00002ec0| 27 2c 20 32 33 29 3b 20 | 2a 2f 0d 0a 52 45 54 55 |', 23); |*/..RETU|
|00002ed0| 52 4e 3b 20 2f 2a 20 54 | 45 52 4d 49 4e 41 54 49 |RN; /* T|ERMINATI|
|00002ee0| 4f 4e 20 44 55 45 20 54 | 4f 20 52 45 41 44 20 45 |ON DUE T|O READ E|
|00002ef0| 52 52 4f 52 20 2a 2f f0 | ff 0f 00 b4 01 02 00 20 |RROR */.|....... |
|00002f00| f0 f0 f0 f0 f0 | |..... | |
+--------+-------------------------+-------------------------+--------+--------+
